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GREETINGS! Welcome to the first "official" issue of 
NORTHERN BYTES Volume 7. This issue is being produced 
relatively soon after Volume 6, Number 8, which explains the 
small number of "letters to the editor" in this is3ue. 

Speaking of Volume 6, Number 8, how did you like our "new 
look"? We've heard your complaints about the print quality in 
previous issues (which upset your editor a great deal as well) so 
we are now sending NORTHERN BYTES out to be printed 
commercially. The paper's a little thinner, but I think the print 
quality is such better overall, and I hope that you're pleased 
with it. One thing I should mention is that because of this new 
process, we have to specify ahead of time how many issues of 
NORTHERN BYTES that we want printed, and when they're gone, 
they're gone! And, in any case, we can't get back issues 
reprinted as easily as before. So, if you want back issues, 
please consider getting then now or you may be disappointed (or 
at least have to wait for them) at a later date. If you've 
purchased a back issue of Volume 5, Number 4 you may have a bad 
copy and if so, you will be entitled to a free replacement. See 
THE EXTERMINATOR column below for details. 

Now for a few notes of interest to specific segments of our 
readership: 

CREDIT CARD "SUBSCRIBERS": Please keep track of the 
expiration date of your credit card (it should appear on your 
NORTHERN BYTES Bailing label) and send us your new expiration 
date (and card nuaber if it changes) at renewal time. You may 
call the toll-free order line to leave this information, simply 
tell the operator that you wish to sign up to receive NORTHERN 
BYTES, then tell her to note that you're supplying a new credit 
card expiration date in the aessage space on her order form. Or, 
if you want to help us save a little aoney. jot your name and the 
new expiration date on a post card and send it to us. If your 
credit card expires and we don't have the new information, we 
can't continue to send you future issues of NORTHERN BYTES. 

COMPUTER CLUBS AND USER GROUPS: If you missed our front 
page announcement in the last issue and you have not been 
sending exchange copies of your group's newsletter to the 
correct address, it's probably too late for you to get reinstated 
to our published listing of clubs and user groups. But, if you 
want to find out for sure, call ae at (906) 632-3248. If you've 
been sending exchange newsletters right along, don't worry about 
it. The list of clubs and user groups will most likely be printed 
in our next issue. 

NEWDOS/80 USERS (and former users): Are you putting off 
the purchase of a Model 4 (or one of its newer revisions) because 
you don't want to give up the convenience of NEWDOS/80. but can't 
stand the thought of not being able to fully utilize the 
capabilities of the 4? Or, did you buy a Model 4 and find 
yourself using the Model III mode so that you can use NEWDOS? 
Maybe you switched to TRSDOS 6, but find yourself daily wishing 
that you had some feature that was present in NEWDOS/80, but is 
either unavailable or sold separately at additional cost under 
TRSDOS 6? Well, help may be on the way. I got a call from Bob 
Brumley recently, and he says he is nearing completion of a Model 
4 version of NEWDOS/80! This will not be just a Model 4 
adaptation, either, because he plans to add many new features not 
found in the present editions of NEWDOS (including compatibility 
with TRSDOS 6 format disks). 

Right now Bob would like to know what features you might 
want to see added to NEWDOS/80 (such as new commands, etc.). If 
you have any thoughts on this subject, please send them to: Bob 
Brumley, 8522 Alden Lane, Windsor, California 95492. Naturally, 
Bob can't implement every suggestion that he receives, but I'm 
sure he'll consider all suggestions. It's not often that potential 
users of a piece of software get a chance to comment on how it 
should operate prior to its release, and by that point, it's 
usually offered on a "take it or leave it" basis. So, if you have 
any interest at all in a Model 4 version of NEWDOS/80, put your 
thinking cap on and send your suggestions to Bob, as soon as 
possible. 



THE EXTERMINATOR 



Who would think that BUGS would pop up during the winter 
here in the Great White North? Well, we've had a few crawl 
through past issues of NORTHERN BYTES, so let's get 'em... 

But first of all, I'd like to call your attention to THE 
GREAT REPRINT MISTAKE. Due to the 
ineptitude of someone in our printing department (which no longer 
exists due to errors like this!), NORTHERN BYTES Volume 5 Number 
4 was reprinted with a page 18 that actually came from Volume 5 
Number 3. If you have ordered back issues of NORTHERN BYTES 
and a copy of Volume 5 Number 4 was included, you may have 
received a bad copy. If the page 18 in your copy has an article 
on "MODEM PROTOCOL DOCUMENTATION", you have one of the bogus 
issues. Please drop us a post card or letter (do NOT call the 
800 number unless you are ordering something else at the same 
tiae) and we will send you corrected copy of that issue, free of 
charge. If you have a copy of Volume 5 Number 4, please check 
for this and let us know if you got a bad one. Just for your 
information, the correct page 18 originally contained several 
zaps to NEWDOS/80 version 2, a patch to Model HI Disk Scripsit 
to allow it to read 1500 baud cassette tapes, and an editorial on 
the dangers of computer programs that attempt to use high 
resolution graphics and sound to induce hypnotic states. 

Now, let's stomp those pesky BUGS. Back in Volume 6, Nuober 
7, on page 16 we published some zaps to the Allwrite! text editor 
(AL/CMD). I again must re-emphasize that these zaps are untested, 
should be considered experimental, are not supported by Prosoft, 
and could possibly even cause a loss of text. Having said that, I 
want to present a slightly different variation of the same zaps 
that may, repeat may , be a bit more reliable (that is, less likely 
to eat your text). These zaps treat all characters except spaces 
as periods were formerly treated. If you installed the previous 
zaps, you'll have to start over with an unzanped copy of AL/CMD 
(version 1.12) and then apply the zaps below: 



Hi/ill FRS 20.83 ■ m FRS 25,98 

Hi/Ill FRS 21,84 - N4 FRS 24.CE 

M/IU FRS 23,44 - H4 FRS 28, 7E 

HI/111 FRS 28,10 - H4 FRS 33,28 



change FE 2E 28 85 to FE 20 20 05 

change FE 2E 20 03 to FE 20 28 03 

change 3E 2E B£ 23 20 0E to 3E 20 BE 23 28 0E 

change 3E 2E BE 20 05 to 3E 20 BE 28 05 



If you use these zaps and have any, problems using Allwrite, 
please be sure to try using the original unzapped version of 
Allwrite before contacting Prosoft. Your problems could 
originate with these zaps, and the folks at Prosoft would have no 
way of tracking them down! By the way, should you experience 
any unexpected difficulties while using these zaps please drop us 
a line, we'd like to hear about them. 

Speaking of Prosoft, in Volume 6, Number 8 (page 7) we 
reprinted Chuck Tesler's letter on software piracy as it appeared 
in the Adelaide Micro-User News. Well, they misspelled Chuck's 
last name several times, and I didn't catch the error prior to 
publication. So, for the record, "Tesler" is spelled with one "s", 
not two. Sorry, Chuck. Also, I understand (through a telephone 
conversation with Ron Malo of Prosoft) that Allwrite is now sold 
to TRS-80 users in other countries (including Australia) provided 
that a prospective purchaser first obtains (from Prosoft) and 
signs a release acknowledging certain limitations on the amount 
of support he may expect to receive. As Ron explains it to me, 
this is due to the fact that there are certain differences in 
both hardware and (Disk Operating System) software as sold 
overseas, and Prosoft can't be expected to support every foreign 
variation of the TRS-80 (not to mention the TRS-80 clones that 
are popular overseas). Presumably the overseas user groups 
could help their users through any "tweaks" that need to be made. 
In any case, it appears that the original problem of lack of 
copyright protection afforded by Australian law is no longer an 
issue. 

In the article "TELECOMMUNICATIONS NEWS" that appeared in 
Volume 6, Number 8, the two columns on page 19 were transposed 
during the paste-up process. If the article didn't make any 



sense to you, go back and re-read it, but when you get to page 
19 just read the second column first and the first column last. 

Also in Volume 6, Number 8, a minor bug appeared in the 
article "MODEL I LEVEL II LOWERCASE ON POWERUP". In that article 
a zap was given to permit the LC,(Y/N) command to work with the 
EPROH lowercase driver installed. Immediately following that zap, 
the text read, " When the above zap is used , the BASIC caps lock 
control is changed to POKE 16409,0 to set raixed (upper/lower) 
case, and POKE 16409,1 to set uppercase only (the same as under 
Model HI BASIC)." The underlined portion of the text should have 
been omitted, since the memory location change is not a function 
of the NEWDOS/80 zap, but of the EPROM lowercase driver. The 
zap simply permits the correct functioning of NEWDOS/80's LC 
command when the EPROM modification has been installed. 

Incidentally, Bob Seaborn (who assisted in the preparation 
of the above-mentioned article) has said that he will burn an 
EPROM containing the code revisions suggested in the article for 
$6.00 (U.S.) plus the cost of the EPROM (if he supplies it, or you 
can supply your own EPROM if you wish). For more information, 
telephone Bob at (306) 343-1305 or write to him at 2601 Dufferin 
Avenue, Saskatoon, Saskatchewan, S7J 1C7 or via MCI Mail (User 
I.D. 268-7906). 



LETTERS DEPARTMENT 

Reminder: Persons sending letters intended for publication 
should send them on magnetic media or via CompuServe [72167,161], 
Delphi [TASI0], or MCI Mail [109-7407] (especially if longer than a 
couple of paragraphs). If you are NOT using Allwrite (or 
Newscript) and your word processor offers the option to save 
your file in ASCII format, please do so (especially if using 
SuperScripsit!). Your cooperation in this matter will help us to 
bring you a better newsletter! 



Date: Wed Nov 06, 1985 4:27 p«i EST 

Prom: Bob Seaborn / MCI ID: 268-7906 

TO: * Jack Decker 

Jack - 

Here are some more zaps for Newdos 80/2.0. 

This patch removes the '?' Prompt at the end of a directory 
page, clears the screen before the next page is displayed, and 
allows any key to be pressed when the next page is requested 
instead of only <ENTER>. <BREAK> is still used to abort the DIR 
command. 

SYS8/SYS,03,86 (I) 

from 3E3F CDA5 50CD 4900 3DCA 2D40 FE0C 20F5 
to CD49 003D CA2D 40CD C901 C3A5 5000 0000 



This zap tidies up the directory display when in the 
expanded (,A) mode. 

SYS8/SYS,04,C8 (I) from 2E2E 2E2E to 2020 2020 
SYS8/SYS,04,F3 (I) from 2E 2E2E 2E to 20 2020 20 

This is a zap to SYS5/SYS (DEBUG) to set the high value of 
the displayable characters including graphics (I find it's best to 
stay under BFH). 

SYS5/SYS,03,69 (I) from C6 3F 4A to 00 0E XX 
(replacing "xx" with the Hex value of the highest displayable 
character.) 

I think I (we) may have opened a can of worms here with 
suggested modifications to the ROM [see the article "MODEL I 
LEVEL II LOWERCASE ON POWERUP" in Northern Bytes Volume 6, 
Number 8]. I'm sure every reader who has a Model I will have 

suggestions or ideas to change ROM before blasting an EPROM 

On my part, I plan on blasting both ray ROM's (I have the two chip 
set), so I .can cure the problem of TABbing past 63. To do this, I 
simply changed the byte at 213BH from a 3FH to a 7FH for a TAB 
maximum of 127 (or to what ever you wish if you want even 
greater TABbing positions available). I also changed the 43H at 
06FA to 42H to correct the printer paper line count for my 
printer. Furthermore I inserted all the ROM changes that you 
documented in Appendix HI of your 'ROM Routines' book. 



I'm also trying to find where BASIC stores the '?' token so 
we don't get a syntax [error caused by an invalid BASIC token 
when] typing 'L?' in a Basic line rather than 'LPRINT'. You must 
have lots of other suggestions or ideas too. Who knows, we . may 
end up with a completely rewritten ROM set and I'm sure that a 
whole issue of Northern Bytes can be devoted to this. Who says 
the Model I is dead??? 

I feel that one could use a 27128 IC instead of the 2764 

and, by bank switching, have two ROM sets available. The 
possibilities seem endless when you start thinking of them. 

Bob Seaborn 

[Sorry about hacking up your letter, Bob, but at the last 
minute I inserted part of the text of your letter into my article 
in the last issue (as I'm sure you noticed). On reviewing it, I 
found that I omitted the NEWDOS/80 zaps and some other pertinent 
comments, so I decided to print most of the rest of your letter 
this issue. 

One comment you made needs to be amplified. You indicated 
that the byte at 213BH could be changed to "whatever you wish" 
if you need to TAB past 127. Not quite true. The only other 
option that will work properly is 0FFH, which will allow TABbing 
to 255 (which I recommend). The reason is that this value is 
ANDed against the actual TAB argument used in a BASIC program. 
If you change this byte to any other value from 128 to 254, some 
of the bits of the argument will be zeroed and thus certain TAB 
arguments will not work properly (they will be changed to 
something else). 

I'm open to other suggestions for ROM modifications, 
particularly those that fix bugs in the ROM. We can present them 
here, and leave it to the individual user as to whether to 
actually implement thea or not. That goes for mods to the Model 
HI/4 ROM (or 4P ROM image) as well. Bear in mind, though, that 
major changes to the ROM code may cause problems with software 
that makes ROM calls. 

Readers, also see the note in THE EXTERMINATOR column 
about Bob's offer to burn EPROMs.] 



Dear Jack, 

... While you were "zapping" around the Allwrite files you 
may have noticed that the ALK/CMD keyboard driver can be 
modified to change the layout of the keyboard or can cause any 
ASCII character to be printed with a redefined key. We have a 
"DVORAK" version of ALK if anyone ever wants it. Just change 
the characters in ALK any way you want them. You might find 
some use for this information. 

Ron Halo 
PR0S0FT, Box 560, North Hollywood, California 91603 

[Thanks, Ron. In checking my copy of ALK/CMD, I found this 
table starting at File Relative Sector 2, Byte A4 (depending on 
the version of Allwrite that you have, it may start in a slightly 
different place). It's easy to recognize, it starts with the 
characters g'aAbBcCdDeE ... and so on. Simply find the character 
you want to replace and zap the new character in. Be sure that 
you do this only on a backup copy of ALK/CMD, in case you zap 
the wrong byte and mess up everything! By the way, even though 
Ron tipped me off to this, such zaps to ALK/CMD should probably 
still be. considered unofficial and unsupported by PR0S0FT. In 
other words, zap at your own risk!] 

DON'T THROW YOUR DAMAGED PRINT HEAD AWAY 

If the print head of your dot-matrix printer goes bad, you 
might be tempted to toss it out and buy a new one. If you do 
that, you might wind up paying more than you have to. 

For example, I recently saw an ad that read "PRINT HEADS - 
Rebullt-Repaired-Exchanged-Bought-Sold. Obviously, a rebuilt or 
repaired print head should cost less than a brand new one Since 
some print heads can cost nearly as much as a new printer, it 
might be worthwhile to investigate this service, should the need 
arise. 

The ad that I saw was from Granada Data Systems, 2323 Ind. 
Parkway West, Hayward, California 94545-5005, telephone 
(415) 786-9007. However, I have never used the services of that 
firm, so this mention does not constitute an endorsement. Should 
you know of other firms that perform similar services, let us 
know and we'll pass the information along. By the way, these 
firms generally specialize in repairing certain makes of print 
heads, so before you send in a print head, call or write first to 
make sure that they can service your particular model. 



PUBLIC PACKET RADIO SERVICE PETITION 

SIX METER AMATEUR BAND SUGGESTED 

by Frederick 0. Mala, W5YI 

[This article is reprinted from The W5YI Report, a 
newsletter edited by Fred Maia that features "Up to the minute 
news from the worlds of amateur radio, personal computing, and 
emerging electronics." The W5YI Report also distributes amateur 
radio license preparation materials that contain all questions, 
answers , and a discussion as to why each answer is right. For 
more information about The W5YI Report, write to P.O. Box #10101, 
Dallas, Texas 75207 or telephone (817) 461-6443. 

Please note that this article should be read by all personal 
computer users that have an interest in computer-to-computer 
communications, not just by those readers presently involved in 
amateur radiol] 

The FCC has accepted a proposal for public comment by 
Donald L. Stoner , W6TNS , for the creation of "the Public Digital 
Radio Service ." The acceptance by the FCC is in keeping with a 
Commission decision reached December 14, 1983, at the 
Commission's "no code" proceeding - Docket #20282. The PDRS 
petition was assigned RM-5241 - comments close on January 6, 
1986. 

The FCC said at the 1983 open Commissioner's meeting that 
Stoner's proposal to establish a Computer Hobbyist R adio Service 
would be accepted as comments on the codeless class of Amateur 
Radio License, but that they would "entertain future proposals 
for allocating spectrum separate and apart from amateur radio 
frequencies for a new Computer Hobbyist Radio Service." It was 
(and still is) Stoner's contention that the Computer Hobbyist 
Radio Service would have brought in literally millions of people 
into amateur radio. 

At the Commission meeting, Bob Foosaner, Chief of the FCCs 
Private Radio Bureau said "...it is a petition that we will look 
at." He indicated that the question had been examined several 
times in the past related to CB radio. "The Hobby Class may be 
something that replaces the CB type of thing," he said. "We are 
going to look at it. It's going to be difficult to find spectrum 
for this type of service." The radio spectrum is not allocated 
for such a service. 

That was two years ago. On December 6th, 1985, the FCC 
released a Public Notice stating that they were now going to 
consider a public digital network. Stoner's extremely well done 
proposal ran to 28 typewritten pages. I called Don when I 
received the FCC notice. He had not yet heard that his proposal 
had been assigned an RM file number. 

Don is uniquely qualified to put forth the 
computer-to-computer proposal. He is a well known technical 
author and educator and was a CQ magazine editor at one point. 
He has written hundreds of articles and several books on the 
subject of amateur radio and computer communications. 

Don has been a licensed radio amateur for thirty years plus 
and is generally credited with the concept which grew to become 
the OSCAR satellite series. His ideas are usually far ahead of 
their time. 

Stoner is the Vice President of Engineering at the 
Microperipheral Corporation in Redmond, Washington and currently 
heads up an effort that "sofcasts" personal computer programs 
via FM subcarriers relayed to commercial FM stations by 
satellite. He designed a $70 "black box" device (which he calls a 
shuttle communicator) that links airborne software with a radio 
and personal computer. 

SUMMARY OF THE PDRS PROPOSAL 

Stoner suggests a wide band channel (non-channelized) to 
send data at high rates of speed. "A single wideband channel can 
be thought of as a digital highway with addressed packets 
entering and leaving the route in a highly organized manner. 
[This] can only be accommodated within the VHF band or higher 
frequencies." 

Stoner said that the 52-54 MHz frequency range is virtually 
unoccupied and therefore unused "It is estimated that out of 
the 400,000 radio amateurs in the United States, less than 1,000 
are active on the six meter band. Due to a potential for 
interference with adjacent television channel 2 (54-60 MHz), 
virtually all six meter users operate between 50 and 52 MHz. . For 
all practical purposes the radio spectrum between 52 and 54 MHz 
is wasted," he noted. 



PDRS POTENTIAL FOR TV MTERFBRBBCB 
The petitioner maintained that no TVI can occur froE a 
radio modes operating in the 52-54 MHz band if: 
(1.) ...the TV station signal received strength exceeds 100 uv 
(2.) ...the effective radiated power of the radio modem does not 
exceed one watt 

(3.) ...the radio modem antenna is vertically polarized with 
respect to a horizontal TV receiving antenna and 
(4.) ...all modulation and spurious products falling outside the 
authorized bandwidth conform to specified FCC rules 

WHAT IS A PACKET RADIO NETWORK ? 
Stoner explains in his petition that a local area network 
(LAN) is a system of a limited number of computers connected 
together by cable in a manner which permits intercommunication. 

"A packet network is an infinite number of LAN's connected 
together by radio waves. A packet radio network may be thought 
of as the digital equivalent of the U.S. Postal Service. The 
information to be sent to another computer is equivalent to a 
letter. The letter is placed in an envelope which includes a 
destination address. This is called the packet. This packet is 
sent along with those of other users into the network, which acts 
like a mailbag. The packet address also includes something like 
a postal zip code. Each radio modem (node controller) connected 
to the network is a destination mailbox." 

"Each user is considered to be a 'node' in the Public 
Digital Radio Service. These stations or nodes constantly 
monitor the transmissions (mailbags), looking for packets 
(envelopes) which are addressed to them. If a message to the 
node is detected, it is held in memory (the recipients mailbox.)" 

"The message may be intended for a nearby node as 
indicated by the 'zip code'. In this case, the node 'mailbox' does 
not activate. Rather the node becomes a 'post office' and passes 
(digipeats) the message to one or more other nodes. The reply 
from the destination computer is handled in the same manner but 
the direction is reversed." 

"Packet radio transmission (movement of 'mailbags') can 
occur at very high speed. In fact, the speed is only limited by 
the bandwidth of frequencies allotted to the network." 

The Stoner petition said that the 2 MHz requested "is 
sufficient to handle data rates in excess of 1 million bits per 
second" and could handle a large number of simultaneous users. 
"Actually, the number of simultaneous users is unlimited due to 
an advantage of FM radio called 'capture effect.' Each node will 
'hear' (or capture) only the strongest stations in the immediate 
area of the node. More distant stations will be inaudible and 
will not cause interference." 

A COMPARISON WITH CB RADIO ..., 

"There is a major reason for the chaos whicli developed on 
the 27 MHz Citizens Band. The licensees of this service did not 
feel it was in their interest to abide by the Rules and 
Regulations. We can learn from this experience by designing a 
service where Rule compliance is in the interest of the user: 

Modulation : There must be no provision for voice 
communications in the PDRS. 

Identification : The FCC licensing workload will not be 
increased. Services which are essentially self-regulating (such 
as the remote control of objects, garage door openers, etc.) do 
not require the use of call letters. 

Compliance : Each radio modem has its own unique ID code, 
that is, its packet address. 

This is both the serial number and digital address of the 
unit. This code also identifies the manufacturer and the physical 
location of the radio modem. Violations of technical 
requirements can be easily correlated by manufacturer. If a unit 
is found to be non-complying, a message can be addressed to that 
radio modem advising the user of the problem. The Coaaission 
personnel sending the message receives the customary delivery 
acknowledgment of the message. Thus there can be no question 
that the user received the Notice of Violation. 

Power Output : A major contributing factor to the 'CB 
problem' was the addition of power amplifiers to CB radios in an 
effort to increase the talk range. "Adding a power aaplifier to 
a radio modem will produce no increase in performance" since 
"the unit will 'retrain' to reduce its power output to maintain the 
nominal signal level at nearby radio modems." 

Antenna : No advantage would be obtained by use of high 
gain, directional antennas since the radio modem would retrain to 
produce the nominal signal strength at nearby nodes. Raising the 
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height of the antenna would cause no noticeable increase in 
communication range. 

Off Frequ ency Operation : There is only one channel or 
band. Out of band data would be destroyed by amateur radio or 
TV channel 2 signals. 

TECffllCAL SPECIFICATIONS .... 

The radio modem (terminal node controller) shall meet the 
following specifications: 

Frequency Band: Equipment authorized to operate in the 
Public Digital Radio Service shall be capable of receiving and 
transmitting data within the band 52-53.999 MHz. 

Modulation: The data shall frequency modulate the carrier 
in a frequency shift keyed scheme. No provision for voice 
modulation or detection. 

Modulation and Spurious Products : The data rate (which will 
be left to industry to determine), waveform and signal processing 
shall be such that all products which all outside the authorized 
bandwidth be suppressed by 43 plus 10 loglO (mean output power, 
in watts) decibels. 

Power Output: The power delivered by the final amplifier 
stage into a 72 ohm load shall not exceed 1.0 watts. Further, the 
radio modem shall have an initial powerup 'training' mode. Upon 
powerup, the power output will be 1 ailliwatt. The power will 
increase during 'training' in 3 db. steps until contact is 
established with nearby modems (node controllers). This value is 
stored in memory and becomes the nominal power output for the 
radio modem. 

Antenna: Shall consist of a vertical radiator which does 
not exceed one-quarter wavelength. The antenna shall exhibit no 
gain or directional characteristics. 

Transaltter Identification : Each radio modem shall have an 
imbedded identification which is transmitted as part of its 
packet address. The address will be used to identify the 
manufacturer, the serial number and the routing code of the 
equipment. 

Packet Construction : The packet and destination address 
will be contained in the header. The header will be constructed 
to limit the number of destination addresses. This is done to 
specifically preclude the transmission of 'junk mail.' 

Remuneration : Users of the PDRS shall be specifically 
prohibited froa receiving any form of remuneration or 
compensation, either in the form of funds, goods or services. The 
purpose of this provision is to prevent the use of the Public 
Digital Radio Service for the benefit of common carriers. The 
restriction shall not be construed to preclude the use of the 
PDRS for business applications. "For example, the radio modem 
would be extremely useful within buildings to avoid the need for 
local area network cabling." 

Type Acceptance : Type acceptance procedures, siailar to 
those for Citizens Band equipment, will be required to "insure 
that commercially manufactured equipment used in the PDRS meets 
the specified technical requirements for this service." 

INTERNATIONAL REGULATIONS - Stoner says that since the 
allocation is above 50 MHz, it appears that no international 
treaties will be involved..." (W5YI Report Editor's Note: We take 
issue with that! ITU agreed upon allocations specifically 
allocate the 50-54 MHz band to Amateur exclusive ! No exceptions. 
It appears any FCC consideration to PDRS will have to be within 
the confines of the Amateur Radio Service. As we see it, it 
could be done, but would have to be a no-code unlicensed amateur 
class.) 

AMATEUR RADIO OPPOSITION - Stoner: "...there can be no 
defense by amateurs of the inactivity on 6 meters. A 
reallocation of the frequencies requested would benefit the 
majority at virtually no expense to the minority." 

AHATEUR RADIO COLLABORATION - "The principal purpose of 
this petition is to obtain an allocation for a public computer 
communications band. The writer would not object if this goal 
could be achieved as part of the Radio Aaateur Service. The 
computer public would accept an adainistrative fee in return for 
access to the radio spectrum. However, they would never accept 
any sort of 'testing' to achieve this goal." 

CONCLUSION .... 

So there you have it. A capsulized version of what has the 
potential to become an unbelievably popular public radio service. 
Did you know that their are more subscribers to BYTE magazine 
than the entire ham population of the United States? 



The public's need to comnunicate with one another at a low 
price has never been realized. PDRS could provide immediate 
message delivery at far less than the cost of a 22$ postage 
stamp (actually no cost) and no delivery tine is Involved. 

Currently non-aoateur cosputer-to- computer communications 
requires expensive telephone interconnection. You can be 
assured that telephone and broadcast interests will oppose the 
Public Digital Radio Service! 

Be sure to send a copy of your comments to Don Stoner . 
W3TNS; 6014 K. Hercar Bay; fiercer Island, Washington 98040. FCC 
rules require this so Stoner can respond to them in his reply 
comments. 

[NORTHERN BYTES editor's note: The statement above that 
"you can be assured that telephone and broadcast interests will 
oppose the Public Digital Radio Service" is probably the 
understatement of the year. The United States Postal Service and 
packet network operators such as Telenet, Tymnet, Uninet, etc, 
probably won't think much of it, either. And, according to a more 
recent issue of The W5YI Report, the American Radio Relay League 
(an organization of amateur radio operators) "came in vigorously 
against the Stoner proposal" (another organization that I am not 
familiar with, called the "Association of Maximum Service 
Telecasters", also filed a pleading in opposition to the proposal). 
Obviously, all of these organizations (with the possible exception 
of the ARRL) are looking out for their own financial interests -. 
if the public has access to free communications service via 
radio, it could affect their bottom line. 

I don't know if it has ever occurred to many people, but 
there is no technical reason at all that you cannot send 
messages or computer programs across the country (or around the 
world) for FREE . Amateur radio operators do it all the time. But 
amateur radio isn't for everyone, since you have to have certain 
technical knowledge plus the ability to send and receive Morse 
code in order to get a "ham" license. Many more people would be 
interested in joining the ranks of amateur radio operators if the 
Morse code requirement were dropped, yet this is one thing that 
the present amateur community seems very opposed to (the only 
reason that I can see for this opposition is that many "hams" 
feel that if they had to learn the code, everyone else that wants 
to participate in the hobby should have to learn it too - yet 
this self-righteous attitude is the very thing that is killing 
support for amateur radio!) The FCC has a lot of input from 
amateur radio operators (specifically the Aaateur Radio Relay 
League and similar organizations) on this subject, but hears very 
little from those who would become "hams" if the code requirement 
were abolished. Thus an "elite" group (which, in some areas of 
the country, seems to be composed of a very snobbish group of 
individuals) is able to dictate what the . entrance requirements to 
amateur radio will be for the rest of us. 

Yet it's true that many people that do not wish to become 
amateur radio operators (at least not under the present terras) 
still would like to have some access to the airwaves for personal 
communications purposes. This was the reason that Citizens Band 
radio was so popular for a time. Unfortunately, the immature 
actions of some CB users, coupled with the technical limitations 
of the CB radio service ("skip", signal fading, etc.), made 
communications via CB so unreliable that most serious users soon 
left the band in disgust. The PDRS proposal would appear to be 
one way to allow more people to communicate via the airwaves, 
while still having safeguards to prevent certain users from 
turning the system into another electronic pigsty. 

I won't go into the details here, but a couple of years ago 
a proposal was put forth that would have permitted everyone to 
have a portable telephone (similar to today's cordless phones, but 
using higher power for greater range) that would have been 
usable up to a few MILES from the user's home or office (their 
was even a provision for repeater systems that would have 
extended the range even further). This would have made a 
telephone in the family automobile affordable for everyone. Of 
course, the telephone companies and cellular telephone interests 
came down hard and heavy with opposition, and effectively 
managed to kill the proposal. 

Now, my question is, why should the interests of the 
telephone companies, packet networks, broadcast interests, and/or 
postal service be protected to the detriment of personal 
computer users and/or the general public? Why should you or I 
have to pay to send data (a computer program or text file, 
perhaps) across the country, if the technology is present to 
allow us to do it for free? Why are we being forced to subsidize 



these institutions every time we wish to communicate? (The 
lawyers aaong us night even want to consider whether this is an 
infringement on our freedom of speech. I sure feel that is is; I 
know that the costs involved will make rae think twice about 
sending an electronic message to a distant point. Sometimes I'll 
send it anyway, but many times I won't. Regular mail service 
through the post office is comparatively inexpensive, but does 
not have the immediacy of electronic communications, and thus 
tends to inhibit the flow of conversation.) 

It is ay hope that the Federal Communications Commission 
will recognize that there are many people that would like to have 
access to a non- commercial personal communications service, yet 
at present are effectively being denied free and efficient access 
to the airwaves. In a free country such as the United States, the 
ability to communicate freely should not be restricted to those 
who can afford to pay for the privilege. The commercial 
communications carriers will always have a place in our society 
serving the business user (which seems to be the type of traffic 
that they prefer to carry anyway), so why not give the hobbyists 
and "just plain folks" a service that they can use freely? If the 
FCC acts favorably on this proposal, it will open up a new world 
of communications for personal computer users. Let's hope that 
they make the right decision on this one! 

If you'd like to write to the FCC and express your feelings 
on this subject, you should do so as soon as possible. The 
address is: Federal Communications Commission, 1919 H. Street 
N.W., Washington, D.C. 20554. Don't forget to send a copy of your 
comments to Don Stoner, as mentioned in the article.] 



NULL INPUT 
by Neil Yerkey 

[Reprinted from the Western New York TRS-80 User's Group 
newsletter.] 

One change from Model III to Model 4 BASIC is most 
unwelcome. On the Model III, a null input (ENTER key only) will 
leave the previous value of the input variable unchanged. Null 
inputs can then be used to accept default values. On the Model 
4, a null input will wipe out the previous value of a variable. In 
the following example, hitting the carriage return in response to 
the prompt will print a 6 in Model III, and a in Model 4: 

10 A = 6 

20 INPUT "TYPE A VALUE OR <ENTER> TO ACCEPT AS IS"; A 

30 PRINT A 

One way to accept default values is to add the following 
lines. This tests to see if the input variable is and, if so, 
changes it back to the original value: 

15 B = A 

25 IF A = THEN A = B 

One problem: What if you WANTED to change the 6 to a 0? 
The above lines would always change an inputted back to a 6! 
There would be no way to enter a value of 0. Does anyone know 
how to accept a default value and also allow a person to enter a 
0? [Yes, see below -editor]. 

For string variables, null inputs return a null string [in 
Model 4 BASIC]. That is not so much of a problem because you 
can test "to see if the length of the variable = 0: 

10 AS = "SMITH": BS = AS 

20 INPUT "TYPE LAST NAME OR <ENTER> TO ACCEPT AS IS";A$ 

30 IF LEN(AS) = THEN AS = BS 

40 PRINT AS 

[NORTHERN BYTES editor's note: This gives us the solution 
to the question of how to accept a default value, yet still permit 
the user to enter a zero value. We simply input the reply into a 
string variable, test for a null string, and if the string is not 
null, then assign it to the appropriate numeric variable: 

10 A = 6 

20 INPUT "TYPE A VALUE OR <ENTER> TO ACCEPT AS IS"; BS 

25 IF B$>"" THEN A = VAL(BS) 

30 PRINT A 

This isn't exactly the same as using a numeric variable for input 
(it won't prompt the user to redo the input if invalid characters 
are entered), but it's close enough for most applications.] 



MORE ON THE PBUFF PRINTER BUFFER KIT 

Don McKenzie's PBUFF parallel printer buffer kit has been 
mentioned at least a couple of times in recent issues of Horthem 
Bytes (the first mention was in Voluae 6, Nuaber 4, page 12). 
Well, there have been a couple of new developments regarding 
that kit. Serial printer users, hang in there, we'll get to you in 
a minute. 

First of all, although the original version (the 8K-64K 
version, now known as version 2.0) is still available, a new 
version 3.0 is now also available. Version 3.0 is a 256K unit 
that uses eight 41256 (256K) RAM chips. The price is the sa»e 
($35.00 Australian plus S5 for postage to North America, Don can 
also supply the required 3.58 MHz crystal for $2.90 Australian if 
ordered at the same tine). Of course, the 256K chips (which are 
NOT included in the kit) are more costly than the 8K-64K 
components, so the TOTAL cost for the 256K kit would be higher. 
This "PBUFF SHORT FORM KIT" consists of a printed circuit board 
and an EPROM programmed with the PBUFF software (you supply all 
other parts), plus full assembly instructions (including a 
hardware debugging section) and free hardware debugging advice 
via telephone (that is to say, Don won't charge you for giving 
the advice. If you live in the U.S., AT&T will charge you $2.17 
for the first minute and 81« for each additional minute during 
the "economy" rate period. Carriers other than AT&T may charge 
less). The kit price may seem high until you remember that the 
current value of the Australian dollar is quite a bit below that 
of the U.S. dollar (check with your bank for the current exchange 
rate), which makes the cost much more reasonable. 

The original PBUFF was designed only for parallel 
(Centronics) 1/0. However, due to demand, Don has now released a 
serial board add-on for use with PBUFF, which performs serial to 
serial, serial to parallel, and parallel to serial conversions, all 
at standard RS232C levels (or TTL in). Serial baud rates (in and 
out) can be set at 75, 300, 600, 1200, 2400, 4800, 9600, and 19200. 
You can select a word length of from 5 to 8 data bits. Odd, Even, 
or No parity can be used, and 1 or 2 stop bits can be selected 
(or 1.5 stop bits at 5 data bits). These settings insure that just 
about any computer system can be connected to almost any 
printer. 

The serial board can be used with any revision PBUFF board. 
It's a bare printed circuit board (you provide all components) and 
sells for $18.00 Australian (don't forget the $5 charge for 
shipments to North America). 

For further information on any of Don McKenzie's hardware 
projects, write to him at 29 Ellesaere Crescent, Tullamarine, 
Victoria 3043, AUSTRALIA, or phone him at (03) 338 6286 (from the 
U.S. dial 011+61+3+338-6286). I will again mention that Don is a 
hobbyist, not a large money-making corporation, so when you 
write include at least two or three dollars for return postage 
(Don has a small "catalog" of hardware mods, many of which are 
specifically for the TRS-80 and "clones", that he will send to you 
if you supply sufficient return postage). 



MODEL 4 AND 4/4P TECHNICAL REFERENCE MANUAL ERRORS 

Page 17 of the Model 4 Technical Reference Manual (26-2110) 
and Hardware page 5 of the Model 4/4P Technical Reference 
Manual (26-2119) have the four high res ports reversed. Below 
are the correct port locations. 

PORT: 80 hex 

READ: reserved 

WRITE: Graphics X Register write 

PORT: 81 hex 

READ: reserved 

WRITE: Graphics Y Register write 

PORT: 82 hex 

READ: Graphics Ram Read 

WRITE: Graphics Ram Write 

PORT: 83 hex 

READ: reserved 

WRITE: Graphics Options Register 

This information was posted on the Tandy Forum on 

CompuServe. 



ARRANGER 2.1 ON THE MODEL 4P 
by Gary Bryce (phone 011+61+2+628-5058) 

[This article Is reprinted froa the SYDTRUG NEWS, P.O. Box 
297, Padstow, New South Wales 2211, AUSTRALIA.] 

The "ARRANGER" by Dan Foy Is In By opinion one of the best 
disk indexing programs available for the TRS-80. It will "BOOT" 
and operate in unmodified form on the the Model I, m and 4, but 
it will not "BOOT" on the 4P. 

Why? The MODEL III ROM must be available prior to booting, 
as the ARRANGER operates in Model III aode on a Model 4 or 4P, 
and this means that the MODELA/HI file aust be operational on a 
4P before the ARRANGER can be loaded. You nay, if it doesn't 
eventually give you a pain in the neck, use the ModelA/III file 
disk followed by the ARRANGER, or execute the procedure detailed 
below to copy the ROM iaage to a backup of your ARRANGER 
Baster disk. The resulting disk can still be used on a Model I, 
m or 4 without any probleas. 

1. Build the following patch file on drive 0. 



.ADIR/FIX 

.Patch to "LOCK OUT" 



all tracks below track 35 



D00 , m 

D00,08= 

D00,i0=: 

D00 , 18= 
D00 , 20= 

D00,60=: 

D00,68= 
D00 , 70= 
D00 , 78= 
D00 , 80: 
.End of 



FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
Patch 



FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 

FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 



2. Mount an unformatted disk on drive 1 then create and execute 
the following JCL. 

ARRANG4P/JCL 



Format a disk in drive 1 with the Directory on Trk 35 
FORMAT :1 (NAME="ARRANGER" ,DIR=35,Q=N,ABS) 

Lockout Tracks below Track 35 
PATCH DIR/SYS.LSIDOS:! ADIR/FIX (0=N) 

Correct the Directory Data Address Mark 
REPAIR :1 

Copy the MODELA/III file froo drive to drive 1 
COPY MODELA/III :0 :1 
//END 



3. Mount the original MODELA/III File disk (not the disk created 

in step 2) in drive and press RESET. 

4. After the Model III ROM ioage has loaded, replace the 

MODELA/III with your Master ARRANGER disk and again press 
RESET. 

5. Follow the normal initialization procedure and select the 

BACKUP ARRANGER option from the aenu to create a copy of 
the ARRANGER on drive 1. 

6. Replace the ARRANGER disk on drive with the TRSDOS 6.x disk 

and press RESET. 

7. With the new ARRANGER disk in drive 1, fron TRSDOS READY 

type In the following exactly as it appears, noting that 
<BREAK>, <ENTER> and <SPACE> Bean to hit those respective 
keys. 

DEBUG <ENTER> 

<BREAK> 

1,0,1,R,8000,1 <ENTER> 

H8000 <SPACE> 

00 <SPACE> 

<SPACE> 

23 <ENTER> 



1,0,1.W,8000,1 <ENTER> 

<ENTER> (the letter 0, not the number 0) 

DEBUG (OFF) <ENTER> 



You can now take the disk fron drive 1 and put it into 
drive and press RESET, The Model III ROM iaage will load 
followed by the ARRANGER. 

Please note any backups of the newly created disk using 
the Backup option of the ARRANGER will not include all the 
additions required (ie: Directory and MODELA/III file) and 
therefore the above procedure raust be repeated for all 
subsequent copies which are to be used on the 4P. However, only 
steps 1 to 5 need be performed if you use the modified ARRANGER 
in step 4, as the patch to the boot sector will be duplicated by 
the BACKUP routine in the ARRANGER. 

This procedure should work for aany "Self Booting" Model III 
prograas that you want to operate on the 4P. Some possible 
conflicts could arise with programs that use all forty tracks, but 
these should be rare (and if you are able to use an eighty track 
drive as drive 0, the directory could be placed above track 
forty). As these "Self Booting" programs raust have a Boot Sector 
readable by the normal ROM routines, accessing sector 1 for 
modification should not be a problem. 



A FEW TIPS ABOUT PASSWORDS AND THEIR USES 
by Warick Sands 

[Reprinted from the TRS-80 SYSTEM 80 Computer Group 
newsletter (16 Laver Street, MacGregor, Queensland 4109, 
Australia).] 

Most users of Disk Systems view passwords with mixed 
passions. If you are limited to a TRSDOS type system, they are a 
nuisance since it becomes next to impossible to do anything with 
the file unless you know the password. Hoorah for NEWDOS/80. 
No more worries about passwords. Anything is copyable. We set 
the SYSTEM option AA=N and forget evermore about passwords. 

At least that is what I did. Until the other day that is. I 
as in the middle of writing a Word Processor. I have the 80k or 
so of source code in Drive 1, while drive has a copy of 
Lazywriter and an editor/assembler. Having finished the printing 
portion of the package, I began work on the editing half. 
Brought the file in which is called EDIT/ASM, assembled it with a 
filespec of EDIT/CMD. Unfortunately, Lazywriter has a file called 
EDIT/CMD. Instant destruction of 40* of Lazywriter. Naturally I 
had a backup. But what if I hadn't? 

How can one prevent this sort of accident from happening? 
Passwords to the rescue. Go to DOS ready type SYSTEM AA=Y. 
Instant protection. But probleas started to arise. I wanted to 
change the PDRIVE specifications. DISK ACCESS DENIED was the 
response. I wanted to change the SYSTEM options. DISK ACCESS 
DENIED. The simplest answer is to use a different DOS disk. But 
I find that is a nuisance. So when all else fails read the 
aanuall! Here is what I found. 

I didn't really want to password protect the disk. All I 
needed was to password protect the files of interest. Use the 
ATTRIB coaraand. 

ATTRIB EDIT/CMD,PROT=READ,UPD=PASSWORD 
protects the file, I can use the file as usual but it can't be 
overwritten, renamed or killed without specifying the password. 
That isn't likely to happen accidentally. Use a password easy to 
reneober. 

SYSTEM option SYSTEM AA=Y is still required. I still 
couldn't change the PDRIVE specs without specifying the password. 
When you're changing the PDRIVE's for every other disk it 
becomes soaewhat tiresome (and time consuaing) to type in 
PDRIVE PASSW0RD:0,1=5,A 

Back to the manual! Set the DISK PASSWORD to null by 

PROT,PASSWORD:0,PW= 

That cured the trouble. I could change PDRIVE paraaeters and 

SYSTEM options to ay hearts content, and the file was still 

protected. 

A week later I wanted to do a disk copy. DISK ACCESS 
DENIED. Back to the aanual!! Set SYSTEM AR=Y. This allows the 
full disk copy to occur without the checking of passwords. 
Problem solved. So If you want to protect files on a disk froa 
accidental erasure, it can be done easily. 



MORE MATHEHAGICAL RECREATIONS from MAGIC HATH PLUS 

by Dr. Michael Ecker 

and Recreational Mathemagical Software 

Hello everybody! Sorry to have missed my contributions to 
Northern Bytes, but I've been busy. Anyway, I've got a few 
teasers for programs over the next couple of issues. They are 
drawn from Magic Math Plus, a collection of about 40 programs 
for TRS-80 Model III disk (also for 4 or 4P in Model III mode). 
That disk is a self-booting disk, and all programs are in 
menu-generated format. There is also a smaller MSDOS version, as 
well as a specialized Sanyo 550/555 version. I sell the software 
to schools licensed for $87.50, or to individuals for $37.50 
(TRSDOS version) / $27.50 (smaller MSDOS version). However, 
Northern Bytes readers who so identify themselves may have the 
TRSDOS version for $29.75 or the MSDOS version for $22. You can 
also get a subset of the programs, including six of. the best 
programs (either version) for $10.95. 

After the programs and text which follow, I'll tell you how 
to get the programs for even less than that, as well as details 
of a brand new newsletter created to make up for a bit of the 
void created by the death of such publications as Creative 
Computing and Popular Computing. As some of you may know, I was 
the "Recreational Computing" columnist for each of these, as well 
as the founder of "Mathematical Recreations" in Byte. 

Okay, enough commercials. Let's get on with it! 

Digital Delight 

Here is a cute program involving digits of an integer. For 
all the abuse that Basic gets (I won't debate the issue here), it 
is quite good at string manipulation. Some of the best 
recreations involve digits of a number. I don't claim that these 
activities will make you a better person, but I think you'll share 
my enjoyment of them. I won't offer an explanation of why the 
tricks work, although the full program as it appears on Magic 
Math Plus does contain a complete explanation. To save you 
typing - and perhaps to arouse your curiosity and make you think 
- 1 won't Include that explanation which comes as part of the 
program ordinarily. 

In Digit, the computer asks you to: 1) pick a number; 2) add 
up its digits (thus the title); 3) subtract the sum of the digits 
from the original number; and 4) pick a digit from this, and cross 
it off from that last answer. The computer then tells you the 
digit which you were thinking of (i.e., the one you cross off). 

To illustrate, suppose that we take any integer. Let's take 
1234. Add up the digits. They add to 10. Now subtract the sum 
of the digits (10) from the original number (1234) to get 1224. 
Mentally select any digit of this bunch. Let's suppose that we 
pick the 4. The computer program, Digit, will ask you to indicate 
the number left after you delete the digit you're thinking of. In 
this case, you would knock out the '4' and so you would indicate 
that the number left is 122. When prompted, type in 122 and hit 
the Enter key. 

From that, the oh mighty and psychic computer will somehow 
mystically divine the digit you have picked! 

Here is the program listing. 1 realize that some of you will 
recognize this as just a computer implementation of "casting out 
nines", but I find that even those who have heard of this process 
don't really understand why it works. I will defer explanation at 
this time, although it is on Magic Math Plus. 

99 REM TRS-80 VERSION SHOWN HERE 

100 CLEAR500:S$=STRING$(18,42) 

110 CLS:PRINT§342,S$:PRINT@406,"*DIGIT 

PREDICTION*";:PRINT@470,SS;:PRINT@960,"RECREATIONAL MATHEMAGICAL 

SOFTWARE (C) 1985 DR. MICHAEL ECKER" 

120 FORJ=1TO1500:NEXTJ 

220 CLS 

230 PRINT:PRINT TAB(17)"THINK OF ANY WHOLE NUMBER.":PRINT 

240 FOR Z=l TO 1000:NEXT 

250 PRINTTAB(13) "ADD UP THE DIGITS OF YOUR NUMBER." 

260 PRINT:F0R Z=l TO 2000:NEXT 

270 PRINT TAB(9)"N0W SUBTRACT THE RESULT OF THE 

ADDITI0N":PRINTTAB(16)" FROM THE ORIGINAL NUMBER." 

280 PRINT:PRINT:PRINT 

290 PRINTTAB(14) "PRESS <ENTER> TO C0NTINUE";:INPUT X$ 

300 CLS 

310 PRINT "THINK OF ANY DIGIT IN THE LAST ANSWER (but not 

zero)." 

320 FOR Z=l TO 800:NEXT 



330 PRINT 

340 INPUT "WHAT IS THE NUMBER LEFT IF YOU DELETE THAT DIGIT";N$ 

350 S=0 

360 FOR 1=1 TO LEN(N$) 

370 S=S+VAL(MID$(N$,I,1» 

380 NEXT I 

390 IF S>=9 THEN S=S-9:G0T0 390 

400 A=9-S 

410 FOR Z=l TO 700:NEXT 

420 CLS 

430 PRINT "CONCENTRATE NOW ON THE MISSING DIGIT..." 

440 FOR Z=l TO 1000:NEXT 

450 PRINT:PRINT "AHA!... THE MISSING DIGIT IS";A;"!" 

460 PRINT:PRINT:PRINT:PRINT:FOR Z=l TO 1000:NEXT 

470 INPUT "PLAY AGAIN (Y OR N)"; RE$ 

480 IF RE$="Y" OR RE$="y" THEN RUN ELSE END 

Kaprekar's Constant - The Remarkable Narcissistic Number 153 
I'm going to be brief on this digit-delving program and 
problem, although there is a lot I can say about it. This problem 
or question deals with a phenomenon of attraction which I call 
"black hole attraction". There are two elements to this, and I'll 
describe these in a moment. First, let ae give you the idea. 

The key idea is you do some process to a number to produce 
a new number, and then you ask whether the answers obtained by 
Iteration (i.e., repetition of the process) must eventually hit 
some number. An even more key question is whether there is any 
number which has the property that, when you do the process, you 
get the same number you started with. 

The two ingredients needed for a number to be a "black 
hole" (my terminology), with respect to a given process, are 
therefore: 

1) The new number obtained in the next step is the same 
number. 

2) If you start with any number at all, within a finite 
number of iterations (steps), you must eventually hit the special 
number found in 1) - at which point, continued iteration just 
keeps producing the same number. 

There are actually many instances of this, and 1 can explain 
a popular card trick with respect to this, but let me get back to 
Kaprekar and his constant. 

Look at the number 153. Suppose that you take the cube of 
each of the digits. That is, take lxlxl, 5x5x5, and 3x3x3. These 
are 1, 125, and 27. Add them up. What do you get? Why, good 
old 153 again! 

Lest you think this isn't special, try it with another number 
and this will probably fail. If you agree to restrict yourself to 
positive whole numbers which are greater than 1, the only other 
numbers with this narcissistic property (as we call it in 
recreational mathematics) of the number equalling the sum of the 
cubes of the digits, are 370, 371 and 407. 

Of the four solutions, only 153 is a multiple of 3. Here is 
now what I claim in order to have the "attractor" part, or second 
part, of my "black hole" definition. I claim that no matter which 
integer multiple of 3 you take, if you take the sum of the cubes 
of the digits, either that answer will be 153, or, more likely, 
you'll have to repeat taking the sura of the cubes of the digits, 
and so on, but eventually you'll get 153 (at which point further 
iteration keeps producing 153). It is not that obvious why this 
is so, so don't berate yourself if you can't see why it has to 
happen. 

The following program, Trickl53, (again, from Magic Math 
Plus), tests this. The program contains sufficient error-checking 
to disallow impermissible inputs, most notably numbers which are 
not multiples of 3. Hence, don't worry about inputing only 
multiples of 3; the computer will warn you and stop you if you 
goof up. 

Why not play around with the program a bit? It's short 
enough not to be too tedious. Enjoy it! I'll rejoin you after the 
program for some closing words from our sponsor (which is 
Recreational Mathemagical Software in this case). 

99 REM TRS-80 VERSION HERE 

100 CLEAR500:S$=STRING$(27,42) 

110 CLS:PRINTe338,S$:PRINT@402,"*THE REMARKABLE NUMBER 
153*";:PRINT@466,S$;:PRINT@960,"RECREATIONAL MATHEMAGICAL 
SOFTWARE (C) 1985 DR. MICHAEL ECKER" 
120 FORJ=1TO1500:NEXTJ 
200 DIM A(15) 
205 DEFDBLN 



210 CLS 

220 PRINT "IN THIS TRICK, I WILL ASK YOU TO GIVE ME A WHOLE 

NUMBER" 

230 PRINT "WHICH IS A MULTIPLE OF 3. THE COMPUTER WILL THEN 

TAKE EACH" 

240 PRINT "OF THE DIGITS AND CALCULATE THE CUBE OF EACH DIGIT." 

250 PRINT:PRINT "THEN THE SUM OF THESE WILL BE DISPLAYED. THE 

PROCESS WILL" 

260 PRINT "THEN BE REPEATED WITH THAT NUMBER, AS NEEDED, UNTIL" 

270 PRINT "WE START GETTING THE SAME NUMBER. AMAZINGLY, THIS" 

280 PRINT "MUST ALWAYS HAPPEN, AND ONE ALWAYS GETS THE SAME 

ANSWER!" 

285 PRINT: PRINT "FOR THAT ANSWER, NOTE THE IMPLIED RESULT THAT 
THE SUM OF THE" 

286 PRINT "CUBES OF ITS DIGITS IS EQUAL TO THE NUMBER ITSELF, 
SUCH A": PRINT "NUMBER IS SAID TO BE NARCISSISTIC (of order 
3).":PRINT 

290 PRINT:INPUT "PRESS <ENTER> TO CONTINUE";XX 

300 CLS:INPUT "GIVE ME A WHOLE NUMBER WHICH IS A MULTIPLE OF 

3";N 

310 PRINT 

320 N$=STR$(N):L=LEN(N$) 

330 IF ABS(N-INT(N))>.00001 THEN PRINT "A WHOLE NUMBER 

PLEASE!":FOR Z=l TO 700:NEXT:GOTO 300 

340 IF ABS(N/3-INT(N/3))>.01 THEN PRINT "A MULTIPLE OF 3 

PLEASE!":FOR Z=l TO 700:NEXT:GOTO 300 

350 S=0 

360 FOR 1=1 TO L 

370 A(I)=(VAL(MID$(N$,I,1))):A(I)=A(I)*A(I)*A(I) 

380 S=S+A(I) 

390 NEXT I 

400 PRINT "THE SUM OF THE CUBES OF THE DIGITS OF LAST NUMBER 

IS":S 

410 IF S=N THEN PRINT:PRINT "PROCESS IS COMPLETE.":PRINT"TO 

START AGAIN, HIT <ENTER>." 

415 IF S=N THEN INPUT X$: GOTO 300 

420 IF SON THEN N=S:S=0:GOTO 320 

Do you enjoy this sort of recreation? If so, then you are 
not only a prime candidate for Magic Math Plus, but also for a 
new newsletter which I'm pleased to announce here. It is REC, 
which is an acronym for Recreational and Educational Computing 
Newsletter,, and it is being made available now. I am the editor 
and publisher of REC, with subscriptions just $16.95 for one year 
of six issues loaded with goodies such as what I've offered here. 
However, REC will have much, much more. I will be glad to send 
any doubting Thomases more information if I receive a standard 
sized, self -addressed stamped envelope with 39« postage affixed. 
For those who are sold, please send $16.95 U.S. funds made 
payable to Recreational and Educational Computing Newsletter: 

Dr. Michael Ecker, Editor of REC 
Recreational and Educational Computing 
129 Carol Drive 
Clarks Summit, Pennsylvania 18411 

When you write, please tell me a bit about yourself (or as 
much as you want), especially computers owned or used, interests, 
background, suggestions, etc. 

I will try not to make REC machine-specific, although I 
personally own many Radio Shack and Tandy computers, so 
Northern Bytes readers may feel just a wee bit more at home than 
some others at first. (However, I will be translating to other 
machines, so don't despair if you have an Apple, for instance.) 

Remember I said there would be a bonus if you read this 
far? Well, here it is, although I'm being crazy, according to all 
the rules of pricing. (I figure I'm earning maybe minimum wage!!!) 
If you subscribe to REC ($16.95), you may purchase the sampler 
disk for just $2, or the full MM+ disk for just $16 (TRSDOS) or 
$13 (MSDOS). Please specify your computer carefully. Note that 
the sampler disk contains full programs, not demos, and these 
have the same menu system, etc, These are copyrighted programs, 
not public domain throwaways! 

In other words, you get the newsletter and Magic Math Plus 
for about the sane or quite a few dollars less than the cost of 
Magic Math Plus alone! 

Please take ae up on my offer before I come to ray senses. 
Believe it or not, on top of all this, I still intend to answer 
every letter (provided a SASE is enclosed), just as I always did 



while writing for Byte, Popular, Creative, etc. There are so many 
goodies planned that I just can't tell you everything. 

Lastly, thanks to Jack Decker and also to Charley Butler of 
the Alternate Source for their cooperation in allowing ourselves 
to work together for the computer community. At a time when so 
many are bailing out because they're not making their fortunes, 
it's nice to be part of an enterprise that offers something other 
than a chance for itself to get rich. 

As always, I solicit your questions, improvements, 
suggestions and so on. Remember that if you'd like a reply for 
anything other than an order, you need to enclose a SASE, 
including information about Magic Math Plus or the Recreational 
and Educational Computing Newsletter. Write me at the address, 
above. Until next issue, happy computing! 

[Editor's note for the benefit of our readers outside the 
U.S.: Unless you have a supply of U.S. postage stamps, you won't 
be able to send a SASE. So, enclose U.S. coin or currency in the 
following amounts: Canada and Mexico : 1 oz. letter, 22$; 2 oz. 
letter, 40«. Europe, Asia, Australia, etc. : % oz. airmail letter, 
44«. For each additional !* oz, add 44$. Thus, if you want more 
information on the REC newsletter (a 2 oz. mailing), you should 
enclose at least $1,76 in U.S. funds.] 

Dr. Michael W. Ecker, besides being the president of 
Recreational Matheraagical Software and the editor / publisher of 
Recreational and Educational Computing Newsletter, is an 
associate professor of mathematics and computer science, 
presently at the University of Scranton. He is a known computer 
columnist and software reviewer, and his reviews and articles are 
featured monthly in the Computer Shopper. 



PATCH FILE FOR DOUBLEDUTY 
by Dave Bower [CompuServe 70635,330] 



DoubleDuty Patch 
by Dave Bower 
1/19/86 

This patch is for DoubleDuty version 02.05.00, by 
Software Concepts and sold by Radio Shack for the 
TRS-80 Model 4 

It makes four changes: 

1) Changes the DDuty cursor (because the DDuty 
cursor overrides any cursor you may have SYSGEN'd) 

2) Changes the prompt in the library area (Partition 
3) to from TRSDOS Ready to Library Area 

3) Clears the screen when DDuty is called up 

4) Changes "DoubleDuty is now operational." to 
"All systems are now a go!" 

Apply as many, or as few, as you like, substituting your 
own cursor, prompt, and message. 

Apply this patch using the command: 

==> PATCH DDUTY/CMD USING DDUTY/PCH 

Change the cursor — 5F = old value, B0 = new value. 

D03,04=B0 
F03,04=5F 

Change the library prompt. 

D0F,73="Library Area" 
F0F,73="TRSDOS Ready" 

. Clear the screen. 

D05.68=1C IF 
F05,68=20 20 

. Change the message. 

D09,59="A11 systems are now a go! 
F09,59="DoubleDuty is now operational." 

End of patch. 
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CP/M HARDWARE CONVERSION FOR THE MODEL I & SYSTEM 80 

by Bruce Orr 

(System 80 details by Tim Bulluss) 

[Reprinted from SYDTRUG NEWS. P.O.. Box 297, Padstow, New 
South Wales 2211, Australia. Note that the SYSTEM 80 computer 
mentioned in this article was sold under the name PMC-80 here in 
the U.S.A. (and under the name Video Genie in some other parts of 
the world).] 

This file explains how the Model 1 or System 80 can be 
adapted to run CP/M. There MIGHT be a problem if you use the 
standard Dick Smith expansion unit for the System 80. (I don't 
know for sure - I use an LNW expansion board.) See note below. 

COMPONENTS: 

1 x 74LS04 hex inverter (see note below) 
1 x 74LS367 hex tri-state bus driver 
1 x 1 MO resistor 

1 x 0.022uF greencap capacitor (Model I) 
1 x 0.056uF greencap capacitor (System 80) 
1 x SPST toggle switch 
1 x push button (N.O..) 
PCB or Veroboard 

This modification adapts the System 80 for CP/M by: 

a) Remapping memory so that RAM commences at 0000H. 

b) Adding a reset switch (current reset switch generates an NMI. 
not a reset to location as required by CP/M). 

MEMORY REMAPPING 

This is achieved by swapping the first 16K block of memory 
(ie ROM & I/O) with the last (part of RAM). 



FFFF 
C.000 
8000 
4000 
0000 



RAM 



RAM 



RAM 



10,R0H 



\ / 



X 



J V 



10, ROM 



RAM 



RAM 



RAM 



TRS MAP 



CP/m nAP 



ftOO - VIDtO 
F800 - KUbOUU) 
F7t« -BISK, 

Cooo- ton (nou 

BOQO 



4000 
OOOO 



The CP/M memory mapping is achieved by inverting & 
swapping address bits A14 & A15 from the Z80 before they enter 
the address decoding circuits. In the following circuits all 
numbering refers to the Model 1 (System 80 numbering appears in 
parentheses). 



EXISTING CIRCUIT: 




aW 



O 



nW 



«■ IS 567 



238 ^26) 



MODIFIED CIRCUIT: 



W4 



ZBO 

C.PU 



AlS 



-£>»-74l504 



Ov 



SurrcH 4 



-L> 



luatmc o4«s mA dud CUT 

— o ^ 






1 - J M> !L - J H> 



CPM TE9 



——j^T^aO^ 



I suggest that this be built on a small PCB mounted 
underneath the main board near the Z80 CPU or by "piggy 
backing" individual chips on top of existing IC's. 

SYSTEM 80 EXPANSION INTERFACE 

NOTE : - This modification possibly makes computer unsuitable for 
use with the standard Sys 80 S100 expansion unit as A14 & A15 
can no longer be disabled by the *DODBS/ADDBS line. If this 
would be a problem, suggest using an LSOO NAND gate in place of 
the LS04 inverter. Connect *DODBS/ADDBS to one input of both 
the gates which control the enables of the LS367. 

RESET SWITCH 

Requirements: 

a) Must not disable power up reset. 

b) Provides sufficient reset pulse to reset the Z80. 

c) While the Z80 is held reset, memory refreshing is halted. 
Thus, reset pulse must not be too long, even if reset switch is 
held closed. 



MODEL 1 RESET 



■+Sv 



Ov. 




P.B. ,5m. > 3 



SYSTEM 80 RESET 



■*$* 



4.7l< 



1 



-£>-[>». 



tQOjtf 



Or- 



Ov 




In the above diagram, the only new components are the push 
button, the 1MQ resistor & the 0.056pF greencap. They are 
connected to pin 26 of the Z80 as shown. 

To avoid having two reset switches, suggest using a DPDT 
toggle for the change over switch, using the second pole to 
select the function of the existing reset switch. 

TEST PROGRAMS 

Two programs to test this modification follow the BIOS 
listing, they are CPMTEST1/ASM & CPMTEST2/ASM They can be 
assembled using EDTASM. Operating instructions are included in 
the source code. 
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« * * CPU BIOS FOR TRS-80 MODEL 1 I SYSTEM 80 

VERSION 3.3 

LAST UPDATE 21 AUG 1983 

COPYRIGHT (0 1783 

BY BRUCE ORR W2F0 

8 GLENS10E STREET, 

BALGOVLAHi 2073. 
AUSTRALIA. PH. (02) V4-&520 

PERSONAL NON-PROFIT USE OF THIS 
SOFTWARE IS AUTHORISED. 

THIS PROGRAM FORMS THE BIOS (BASIC INPUT/OUTPUT SYSTEM) 
REQU1RE0 TO INTERFACE THE MODEL S COMPUTER TO THE CP/M 
OPERATING SYSTEM. BOTH SINGLE t. DOUBLE DENSITY FORMATS 





00280 


ARE SU 


TOTED 


WITH AUTOMATIC DEN 


SITY RECOGNITION. THE 


B53B 21D9BE 


01080 


LD 


HL.MESS2 


; DISPLAY MESSAGE 2 




80290 


SINGLE DENSITY FORHAT IS COMPATIBLE U1TH THE OSBORNE 


B53E CDB08A 


01090 


CALL 


SDSP 






00300 


(TM) SINGLE DENSITY FORHAT WILE THE DOUBLE DENSITY 


B541 CD01B6 


01100 


CALL 


CHECK 


;CALC CHECKSUM 




00310 


FORHAT IS BASED ON THE TRS-80 MODEL 3/4 FORHAT. 


B544 327BBC 


01110 


LD 


(CKSUM).A 


;SAVE IT 




00320 










8547 210000 


01120 MAPTST 


LD 


HL.0 


IFIRST RAM LOCATION 




00330 


USE OF THIS PROGRAM REQUIRES THE FOLLOWING :- 


B54A 3E55 


01130 


LO 


A.55H 






00340 










B54C 77 


01140 


LD 


(HL).A 


JATTEMPT WRITE 




00350 


STANDARD EXPANSION INTERFACE UITH 4BK MEMORY. 


B54D BE 


01150 


CP 


(HL) 


; WRITE SUCCESSFUL? 




00340 


MEMORY MAPPING MODIFICATION WHICH EXCHANGES FIRST AND 


B54E 20F7 


01140 


JR 


NZ, MAPTST 


ilF NOT WAIT 




00370 


LAST 16K MEMORY BLOCKS UNDER SWITCH CONTROL. 


B550 0605 


01170 


LD 


3.5 


J500MS DEBOUNCE DELAY 




00380 


LICENCED COPY OF CP/M 2.2 48K ON THE ABOVE DISK FORMAT. 


B552 CDD3B9 


01180 


CALL 


DELAY 






00390 










B555 3E00 


01190 


LD 


A.0 


;SELECT DISK A 




00400 


THANKS TO TIM BULLUSS, NEIL TREMBLE ANO HORST LEYKAM 


B557 320400 


01200 


LD 


(CDIBK).A 






00410 


FOR THEIR COMMENTS ANO SUGGESTIONS. 


B55A 3EB1 


01210 


LD 


A.B1H 






00420 










B55C 320300 


01220 


LD 


(IOBYTE), A 


UNITIALISE I/O BYTE 


0004 


00430 C01SK 


EQU 


0004H ; 


LAST LOGGED DISK 


B55F Z19ABE 


01230 


LD 


HLiMESSl 




0003 


00440 IOBYTE 


EQU 


0003H 1 


1/0 CONTROL. BYTE 


8562 C0B9BA 


01240 


CALL 


SDISP 


; DISPLAY CP/K MESSAGE 


0040 


00450 SEKDSK 


EQU 


40H i 


SEEK DISK NUMBER 


B565 C373B5 


01250 


JP 


WBOOT 


iLOAD SYSTEM 


0041 


00440 SEKTRK 


EQU 


41H 1 


SEEK TRACK NUMBER 


B568 318000 


01240 BOOT 


LD 


SP,00B0H 


IRESET STACK POINTER 


0042 


00470 SEKSEC 


EQU 


42H 


SEE SECTOR NUMBER 


B54B 3E00 


01270 


LD 


A.0 


' ISELECT DISK A INITIALLY 


0043 


00480 HSTDSK 


EQU 


43H 


HOST DISK NUMBER 


B54D 320400 


012B0 


LD 


(CDISK).A 




0044 


00490 HSTTRK 


EQU 


44H 


HOST TRACK NUMBER 


B570 C3C2B5 


01290 


JP 


GOCPM 


UNITIALIZE AND GOTO CP/M 


0045 


00500 HSTSEC 


EQU 


45H 


HOST SECTOR NUMBER 


8573 CDB9BB 


01300 UBOOT 


CALL 


BLINIT 


UNIT BLOCKING 


0046 


00510 SEKHST 


EQU 


46H 


SEEK SHR SECSHF 


B574 31B000 


01310 


LD 


SP.0080H 


i INITIALISE STACK POINTER 


0047 


00520 HSTACT 


EQU 


47H 


HOST ACTIVE FLAG 


B579 0E00 


01320 


LD 


C.0 


iSELECT DISK 


0048 


00530 HSTURT 


EQU 


4BH 


HOST WRITTEN FLAG 


B57B CD17B7 


01330 


CALL 


SELDSK 




0049 


00540 UNACNT 


EQU 


49H 


UNALLOC REC COUNT 


857E CD01B7 


01340 


CALL 


HOME 


;G0 TO TRACK 00 


004ft 


00550 UNADSK 


EQU 


4AH 


LAST UNALLOC DISK 


B561 042C 


01350 


LD 


B, NSECTS 


; NUMBER OF SECS TO LOAD 


004B 


00540 UNATRK 


EQU 


4BH 


LAST UNALLOC TRACK 


B583 0E00 


01360 


LD 


C.0 


;SET START TRACK 


004C 


00570 UNASEC 


EQU 


4CH 


LAST UNALLOC SECTOR 


3585 CD3087 


01370 


CALL 


SETRK 




0040 


00580 ERFLAG 


EQU 


4DH 


ERROR REPORTING FLAG 


35B8 1600 


013B0 


LD 


D.8 


ISET STAR T SECTOR 


004E 


00590 RSFLAG 


EQU 


4EH 


READ SECTOR RAG 


353A 2!009 r 


01390 


LD 


HL.CP19 


;SET CPM LOAD 3ASE 


004F 


00600 READOP 


EQU 


4FH 


1 IF READ OPERATION 


B58D C.5 


01400 LOAD! 


PUSH 


3C 


; SAVE SEC CNT, TRACK 


002B 


00610 KBO 


EQU 


2BH 


ROM KEYBOARD ROUTINE 


358E 95 


01410 


PUSH 


nr 


;SAVE NEX T SEC T READ 


0033 


00420 DSP 


EQU 


33H 


ROM DISPLAY ROUTINE 


358F E5 


01428 


D USH 


HI 


; SAVE DMA ADDRESS 


4020 


00430 DOS 


EQU 


402DH 


TRSDOS RETURN ADD 


3590 4A 


01430 


'_D 


CD 


iGET SEC ADD TO REG C 


00EB 


00440 RSCTRL 


EQU 


0E8H 


RS232 CONTROL 


3591 CD57B7 


01440 


CALL 


SETSEC 


;SE T SEC ADD FROM SEG C 


00E9 


02450 RSBAUD 


EQU 


0E9H 


RS232 BAUD RATE 


B594 Ci 


01450 


POP 


3C 


I RECALL DMA ADD TO 8C 


00EA 


00440 RSSTAT 


EQU 


0EAH 


RS232 STATUS 


3595 C5 


01460 


PUSH 


_ 3C 


;f=LACE BACK ON STACK 


00£B 


00470 RSDATA 


EQU 


0EBH 


R5232 DATA 


3594 CD5C37 


01470 


call' 


' SETDMA 


iSET DMA ADDRESS FROM 3C 


F7EB 


00680 PRTREG 


EQU 


0F7EBH 


PRINTER REGISTER 




01480 i 


DRIVE 


SET TO 0, TRACK SET, SECTOR SET, DMA SET 


F7EC 


00690 DCSREG 


EQU 


0F7ECH 


DISK COMMAND/STATUS REG 


B599 CD6157 


01490 


CALL 


5EA0 


iREAD LOGICAL SECTOR 


F7E0 


00700 TRKREG 


EQU 


0F7EDH 


DISK TRACK REG 


359C FE00 


01500 


CP. 





;ANY ERRORS' 


C 7EE 


00710 SECREG 


EQU 


0F7EEH 


DISK SECTOR REG 


B59E C273B5 


01510 


JP 


NZ, UBOOT 


i IF SO RE-BOOT 


F7EF 


00720 DATREG 


EQU 


0F7EFH 


DISK DATA REG 




01520 I 


NO ERROR, MOVE TO NEXT SECTOR 


F7E0 


00730 DRVREG 


EQU 


0F7E0H 


DISK DRIVE REG 


B5A1 El 


01530 


POP 


HL 


; RECALL DMA ADD 


0003 


00740 NDISKS 


EQU 


3 


NUMBER OF DISK DRIVES 


35A2 118000 


01540 


LD 


DE.12B 


;DMA=DHAI128 


002C 


00750 NSECTS 


EQU 


44 


NUMBER OF SECS TO LOAD 


B5A5 19 


01550 


ADD 


HL,DE 


;NEU DMA ADD IN HL 


0800 


00740 BLKS1Z 


EQU 


204B 


CP/M ALLOC SIZE 


B5A6 Dl 


01560 


°0P 


OE 


; RECALL SEC ADD 


0100 


00770 HSTS1Z 


EQU 


256 


HOST SECTOR SIZE 


85A7 Ci 


-01570 


POP 


3C 


IRECALL SECS REMAINING 


0002 


00780 HSTBLK 


EQU 


2 


CP/M SECTS/HOST BUFF 


B5A8 05 


01580 


DEC 


B 


;SECS=SECS-1 


0010 


00790 CPHSPB 


EQU 


16 


CPM SECTORS PER BLOCK 


B5A9 CAC2B5 


01590 


JF 


Z, GOCPM 


iGOTO CP/M WHEN COMPLETE 


0001 


00800 SECMSK 


EQU 


1 


SECT MASK (HSTBLK-1) 




01400 ) 


MORE 


SECTORS TO LOAD, 


CHECK m TRACK CHANGE 


0000 


00810 WRALL 


EQU 





WRITE TO ALLOCATED 


35AC 14 


01410 


INC 


D 


; INCREMENT SECTOR COUNT 


0001 


00820 WRDIR 


EQU 


1 


WRITE TO DIRECTORY 


B5AD 7A 


01420 


LD 


A.D 




0002 


00830 URUAL 


EQU 


2 


WRITE TO UNALLOCATED 


B5AE FE14 


01430 


CP 


20 


;IF SEC>!9 CHANGE TRACK 


9F00 


00840 CPMB 


EQU 


09F00H 


CPM LOAD BASE ADDRESS 


B530 DA8D35 


01440 


JP 


CLOAD! 


lELSE CONTINUE 


A704 


00850 BOOS 


EQU 


0A706H 


BDOS ENTRY POINT 




01650 i 


END 


c CURRENT TRACK, 


GO TO NEXT 


8500 


00860 


ORG 


0B500H 


SET BIOS ORIGIN 


B5B3 1600 


01660 


LD 


0,0 


;3EG!N UITH FIRST SEC 


B500 C3683S 


00870 ORIGIN 


JP 


BOOT 


COLD START 


B5B5 0C 


01670 


INC 


C 


;TRACK=TRACKM 


B503 C373B5 


03830 yBOOTE 


JP 


WBOOT 


WARM START 




01680 i 


SAVE 


REG STATES AND CHANGE TRACKS 


B506 C334B6 


00890 


JP 


CONST 


CONSOLE STATUS 


B586 C5 


01690 


PUSH 


3C 




B50? C355B6 


00900 


JP 


CONIN 


CONSOLE CHAR IN 


B5B7 D5 


01700 


PUSH 


OE 




B50C C391B6 


00910 


JP 


CONOUT 


CONSOLE CHAR OUT 


353B E5 


01710 


PUSH 


HL 




B50F C3A5B6 


00920 


JP 


LIST 


LIST CHAR OUT 


35B9 CD3087 


01720 


CALL 


SETTRK 




B512 C3DDB4 


00930 


JP 


PUNCH 


PUNCH OUT 


853C El 


01730 


POP 


HL 




B515 C3E0B4 


00940 


JP 


REAOER 


READER IN 


B5BD Di 


01740 


POP 


DE 




B518 C301B7 


00950 


JP 


HOME 


■RESTORE DISK HEAD POS 


B5BE C! 


81750 


°0 C 


BC 




B51B C317B7 


00960 


JP 


SELDSK 


.SELECT DISK 


35BF C3BD35 


01760 


JP 


LOAD! 


IGET NEXT SECTOR 


B51E C330B7 


00970 


JP 


SETTRK 


.SET TRACK NUMBER 




01770 ; 


END 


r LOAD, SET PARAMETERS AND GO TO CP/M 


B521 C35787 


009B0 


JP 


SETSEC 


.SET SECTOR NUMBER 


B5C2 C0F636 


01780 GOCPM 


CALL 


RS1N1T 


: INITIALISE RS232 PORT 


B524 C35CB7 


00990 


JP 


SETOMA 


iSET DMA ADDRESS 


B5C5 C.D89BB 


01790 


CALL 


BLINIT 


UNITIALISE BLOCKING 


B527 C341B7 


01000 


JP 


READ 


:REAO DISK 


B5C8 3EC3 


01B00 


LD 


A,0C3H 


;JUMP INSTRUCTION 


B52A C36EB7 


01010 


JP 


WRITE 


;URITE DISK 


B5CA 320000 


01810 


LD 


(0),A 


;FOR JUMP TO WBOOT 


B520 C3E1B9 


01020 


JP 


LISTST 


ILIST DEVICE STATUS 


35CD 210335 


81820 


LD 


HL.WBOOTE 


i WBOOT ENTRY POINT 


B530 C3ECB9 


01030 


JP 


SECTRN 


■SECTOR TRANSLATION 


B5D0 220100 


01B30 


LD 


(1),HL 




B533 C339B5 


01040 


JP 


NU 


iNOT USED 


B5D3 320500 


01840 


LD 


(5), A 


;FOR JUMP TO BDOS 


B534 C339B5 


01050 


JP 


NU 




B5D6 2104A7 


01850 


LD 


HL.BDOS 


;BDOS ENTRY POINT 


8539 C9 


01060 NU 


RET 




-.RETURN 


B5D9 220400 


01860 


LD 


(6),HL 




B53A F3 


01070 


START 


DI 




I DISABLE INTERRUPTS 


B5DC 3EC9 


01B70 


LD 


A.0C9H 


IRETURN INSTRUCTION CODE 



10 



35DE 320800 


01860 


LD 


(0BK),A :ST 


ORE AT INTERRUPTS 1-7 


3SE1 321000 


01870 


LD 


(10H),A 




35E4 321800 


01700 


LD 


(lBH).A 




B5E7 322000 


01710 


LB 


(20H),A 




B5EA 322800 


01720 


LD 


(28H1.A 




35ED 323000 


01930 


LD 


(30H),A 




35F0 323800 


01740 


LD 


(38H),A 




B5F3 01B000 


01750 


LD 


3C90H ;S: 


T DEFAULT DMA ADD 


35F6 CD5C37 


01960 


CALL 


SETDMA 




85F9 F3 


01770 


D! 


;3 


SABLE INTERRUPTS 


85FA 3A0400 


01780 


LD 


A.iCDISS) iGET CURRENT DRIVE 


35FD 4F 


01970 


LD 


CA iSENB TO THE CC? 


35FE C3009F 


02000 


JP 


CPMB ;GO TO CP/M 


9601 2A08B9 


02010 CHECK 


LD 


HL.(TRNFER) iSAVE T RNFER UORD 


3604 E5 


02020 


PUSH 


HL 




3605 210000 


02030 


LD 


HL.0 




S60B 2203B9 


02040 


LD 


(TRNFER).HL ; ZERO ! T 


960B 210035 


02050 


LD 


HL, ORIGIN ;L 


JAB START ADD 


360E 1I393C 


02060 


LD 


BE,CKEND+1 iL 


OAO END ADD 


3611 0E00 


02070 


LD 


C,0 iZ 


EP.0 SUM 


8613 77 


02080 CHECKL 


■ D 


A,C ;G 


ET SUM 


3614 86 


02090 


ADD 


A,!HL) ; ADD NEXT 3Y T E 


3615 4F 


02100 


LD 


CA ; SAVE SUM 


3616 23 


02110 


UK 


U) jD 


01NT TO NEXT BYTE 


9617 7C 


02120 


■ n 


A~H ;END REACHED ? 


B616 BA 


02130 


re 


n 




B617 20F8 


02140 


JR 


NZ. CHECKL 




BtlB 70 


02150 


LD 


A.L 




BMC 39 


02160 


CP 


E 




B61B 20F4 


02170 


JR 


NZ> CHECKL 




B61F 77 


02160 


LD 


AiC ; v 




3620 El 


02170 


POP 


HL ; RESTORE TRNFER UORD 


B621 220BB7 


02200 


LD 


(TRNFER).HL 




B624 C? 


02210 


RET- 


i RETURN 


B625 CO0136 


02220 VERCHK 


CALL 


CHECK ; 


ALCULATE CHECKSUM 


B628 217BBC 


02230 


LD 


HLjCKSUM 




B62B BE 


02240 


CP 


(HL) ; 


SAME AS STORED VALUE' 


B62C C8 


02250 


RET 


z ; 


RETURN IF SO 


B620 219ABF 


02260 


LD 


HL.MESS5 




B630 CDB9BA 


02270 


CALL 


SOISP i 


DISPLAY MESSAGE 5 


B633 C9 


02280 


RET 


i 


RETURN 




02290 i 


I/O HANDLER SECTION BEGINS HERE 


B634 CD70B6 


02300 CONST 


CALL 


KEYF 


CHECK KEY90ARD 


B637 326FBC 


02310 


LD 


(CHAR), A i 


SAVE RESULT 


B63A A7 


02320 


AND 


A i 


SET FLAGS 


B63B 2012 


02330 


JR 


NZ.CONROY 1 


JUMP IF READY 


B63D 3A0300 


02340 


LD 


A.(IOBYTE) J 


GET I/O BYTE 


B640 E601 


02350 


AND 


1 




B642 200E 


02360 


JR 


NZ, CONIDL 


EXIT ON CON MODES 1,3 


B644 DBEA 


02370 


IN 


A,(RSSTAT) i 


GET RS232 STATUS 


B646 CB7F 


02380 


BIT 


7, A i 


HAS CHAR ARRIVED 7 


B648 2808 


02370 


JR 


Z, CONIDL 


JUMP IF NOT 


B64A DBEB 


02400 


IN 


A.(RSDATA) 


GET CHAR 


B64C 326FBC 


02410 


LD 


(CHAR), A 


SAVE IT 


B64F 3EFF 


02420 CONRDY LD 


A,0FFH 


SET REAOY INDICATION 


B651 C9 


02430 


RET 




RETURN 


B652 3E00 


02440 CONIDL LD 


A,0 


SET NOT READY INDICATION 


B654 C9 


02450 


RET 




RETURN 




02460 ; 


CONSOLE CHARACTER INTO R 


G1STER A 


B655 3A6FBC 


02470 CON1N 


LO 


A, (CHAR) 


GET CHARACTER 


B658 E67F 


02480 


AND 


7FH 


RESET HIGH BIT 


B65A 2808 


02490 


JR 


ZiUAITK 


JUMP IF NO CHAR 


865C 4F 


02500 


LD 


CA 


SAVE CHAR 


B65D 3E00 


02510 


LD 


A,0 




B65F 326FBC 


02520 


LD 


(CHAR), A 


CLEAR CHAR REG 


B662 77 


02530 


LO 


A,C 


iGET CHAR 


8663 C9 


02540 


RET 




; RETURN 


B664 CD70& 


02550 UAIT* 


CALL 


KEYF 


i CHECK KEYBOARD 


B667 E67F 


02560 


AND 


7FH 


iRESET HIGH BIT 


B669 A7 


02570 


AND 


A 




B66A C0 


02580 


RET 


NZ 


i RETURN IF KEY PRESSEO 


B648 3A0300 02570 


LD 


A,(IOBYTE) 


;GET I/O BYTE 


B66E E601 


02600 


AND 


1 




B670 20F2 


02610 


JR 


NZ.UA1TK 


;UA1T FOR KEY IF MODE 1,3 


B672 DBEA 


02620 


IN 


A,(RSSTAT) 


•■ELSE GET RS232 STATUS 


B674 CB7F 


02630 


BIT 


7, A 




B676 28EC 


02640 


JR 


Z.UAITK 


-.WAIT IF NO CHAR REAOY 


B678 DBEB 


02650 


IN 


A.(RSOATA) 


;GET CHAR 


B67A E67F 


02660 


AND 


7FH 


-.RESET HIGH BIT 


B67C C9 


02670 


RET 




; RETURN 



B67D 3A02F8 


02680 KEYF 


LD 


A,(0F802H) ilF JKL PRESSED 


B680 FE1C 


02670 


CP 


1CH 




B692 CCC7B6 


02700 


CALL 


Z.PRTSCR iTHEN PRINT SCREEN 


B685 3A10F8 


02710 


LO 


A,(0F810H) i IF 123 PRESSEO 


B6B8 FE0E 


02720 


CP 


0EH 




B68A CC9BBB 


02730 


CALL 


Z,TERM1N iTHEN TERMINAL NODE 


B680 C0C4BA 


02740 


CALL 


KEY iSCAN KEYBOARD 


B690 C7 


02750 


RET 








02760 ! 


CONSOLE CHARACTER OUTPUT FROM REGISTER C 


B691 77 


02770 CONOUT 


LD 


A,C iPUT CHAR IN A 


B692 C5 


02780 


PUSH 


BC 




B693 C0F7B9 


02790 


CALL 


OISP i DISPLAY IT 


B696 CI 


02800 


POP 


BC 




B697 3A0300 


02810 


LO 


A,(I08YTE) iGET I/O BYTE 


B69A E603 


02820 


ANO 


03H iHASK CONSOLE FIELD 


B67C CAE3B6 


02830 


JP 


Z.RS2320 ',0 


- SENO TO RS232 PORT 


B69F FE02 


02840 


CP 


2 




B6A1 CAA5B6 


02850 


JP 


Z.LIST i2 


- SENO TO LIST DEVICE 


B6A4 C7 


02B60 


RET 


51,3 - CRT DISP ONLY 




02B70 ; 


LIST CHARACTER FROM REGISTER C 


B6A5 3A0300 


02680 LIST 


LD 


A,(IOBYTE) iGET I/O BYTE 


B6A8 07 


02890 


RLCA 


i EXTRACT LIST OEV NUMBER 


B6A9 07 


02900 


RLCA 






B6AA E603 


02710 


AND 


03H 




B6AC CAE3B6 


02720 


JP 


Z,RS2320 it 


- SEND TO RS232 


B6AF FE02 


02930 


CP 


2 




B6B1 CAB8B6 


02940 


JP 


Z.PRINT ;; 


- SEND TO PRINTER 


B6B4 77 


02950 


LD 


A,C 




B6B5 C3F7B7 


02960 


JP 


disp ; 


,3 - SEND TO CRT DISP 




02770 i 


PRINT CHARACTER FROM REGISTER C 


B6B8 3AE8F7 


02780 PRINT 


LD 


A.(PRTREG) i 


BET PRINTER STATUS 


B6B8 CB7F 


02990 


BIT 


7, A i 


S IT BUSY ? 


B6BD 20E6 


03000 


JR 


NZ,L1ST i 


F SO WAIT 


B6BF 77 


03010 


LO 


A,C i 


ELSE GET CHAR 


B6C0 FE0A 


03020 


CP 


0AH ; 


-1LTER OUT LF 


B6C2 CB 


03030 


RET 


Z 




B6C3 32E8F7 


03040 


LD 


(PRTREG),A i 


PRINT CHAR 


B6C6 C9 


03050 


RET 




RETURN 




03060 i 


SCREEN PRINT ROUTINE 




B6C7 2I00FC 


03070 PRTSCF, 


LD 


HL.0FC00H i 


START OF SCREEN 


B6CA 0640 


03080 PRTLW 


LD 


8,64 i 


SET LINE LENGTH 


B6CC 4E 


03090 PRTCHS 


LO 


C(HL) i 


GET CHAR 


B6C0 CDB836 


03100 


CALL 


PRINT i 


PRINT IT 


B6D0 23 


03110 


INC 


HL i 


ADVANCE POINTER 


B601 10F9 


03120 


DJNZ 


PRTCHR 


LOOP TILL EOL 


B6D3 0E0D 


03130 


LD 


C0DH 




B6D5 CDB8B6 


03140 


CALL 


PRINT 


SEND CARR RETURN 


B6D8 7C 


03150 


LD 


A.H 




B607 A7 


03160 


ANO 


A 


END OF SCREEN? 


B6DA 20EE 


03170 


JR 


NZ.PRTL1N 


LOOP IF NOT 


B60C C9 


03180 


RET 




RETURN 




03190 1 


PUNCH CHARACTER OUT 




B600 C3E3B6 


03200 PUNCH 


JP 


RS2320 


SENO TO RS232 PORT 




03210 i 


READER CHARACTER IN 




B6E0 C3EBB6 


03220 READER JP 


RS232I 


GET FROM RS232 PORT 




03230 ; 


SEND CHARACTER TO RS232 PORT 


B6E3 DBEA 


03240 RS2320 IN 


A.(RSSTAT) 


GET UART STATUS 


B6E5 CB77 


03250 


BIT 


6, A 


,15 TX REG EMPTY ? 


B6E7 28FA 


03260 


JR 


Z.RS2320 


ilF NOT UAIT 


B6E9 79 


03270 


LO 


A,C 


iGET CHARACTER 


B6EA D3EB 


03260 


OUT 


(RSOATAhA 


iSEND IT 


B6EC C9 


03290 


RET 




i RETURN 




03300 i 


READ CHARACTER FROM RS23 


2 PORT 


B6ED DBEA 


03310 RS2321 IN 


A,(RSSTAT) 


iGET UART STATUS 


B6EF CB7F 


03320 


BIT 


7, A 


iHAS CHAR ARRIVED ? 


B6F1 28FA 


03330 


JR 


Z.RS23ZI 


;IF NOT UAIT 


B6F3 DBEB 


03340 


IN 


A.(RSDATA) 


iLOAO CHAR TO A 


B6F5 C9 


03350 


RET 




iRETURN 




03360 ; 


INITIALISE RS232 PORT 




B6F6 D3E8 


03370 RSINIT OUT 


(RSCTRD.A 


iRESET UART 


B6F8 3E55 


03380 


LO 


A.S5H 


i SELECT 300 BAUD 


B6FA 03E9 


03390 


OUT 


(RSBAUD).A 




B6FC 3E6F 


03400 


LO 


A.6FH 


;8 BITS.l STOP,NO PAR 


B6FE 03EA 


03410 


OUT 


(RSSTAT).A 




B700 C9 


03420 


RET 




iRETURN 




03430 i 


DISK I/O DRIVER SECTION 


FOLLOUS 




03440 ; 


MOVE TO THE TRACK 00 PO 


ITION OF CURRENT ORIVE 


B701 3A4000 03450 HOME 


LD 


A,(SEKDSK) 


iGET SELECTED DISK 


B704 C074B9 03460 


CALL 


OSKRDY 


iUAIT TILL DISK REAOY 


B707 3E02 


03470 HOME1 LD 


A, 02 


i RESTORE COMMANO 



11 



B709 3ZECF7 
B70C CD0EB9 
B70F 3AECF7 
B71Z CB47 
B714 20F9 
B714 C9 

B717 210000 
B71A 79 
871B FE03 
871D 00 
B71E 324000 
B721 49 
B722 2400 

8724 29 

8725 29 
B724 29 
B727 29 
B728 1139BC 
B72B 19 
372C 2279BC 
B72F C9 

3730 79 

3731 324100 
B734 C9 
3735 3*4300 
B73B CD94B9 
3738 3M400 
B73E 32EFF7 
3741 3E12 
B743 32ECF7 
8744 CDDE89 
B749 3AECF7 
B74C CB47 
374E 20F9 
B750 3A4500 
8753 32EEF7 
3754 C9 

3757 79 

3758 324200 
3753 C9 

375C E043493! 

3740 C9 

3741 3E01 

3743 3Z4F00 

3744 3E02 
3748 3271BC 
374B C3D3B7 
374E 3E00 
8770 324F00 
8773 79 
3774 3271BC 
3777 FE02 
3779 Z017 

377B 3E10 
877D 324900 
3730 3A4000 
8783 324A00 
B7B4 3A4100 
37B9 324800 
37BC 3A7CBC 
B78F 3Z4C00 

3792 3A4900 
3795 87 
B794 CA03B7 

3799 3D 
379A 324900 
3790 3A4000 
B7A0 214A00 
B7A3 BE 
B7A4 C2D3B7 

37A7 3A4100 



03480 

03490 

03500 HOMED 

03510 

03520 

03530 

03540 i 

03550 SELDSK 

03540 

03570 

03580 

03590 

03400 

03410 

03420 

03430 

03440 

03450 

03440 

03470 

03480 

03490 

03700 i 

03710 SETTRK 

03720 

03730 

03740 SEEK 

03750 

03740 

03770 

03780 

03790 



03810 SEEKU 
03820 
03830 
03840 



03870 ; 
03880 SETSEC 



03900 
03910 i 
03920 SETDhA 
03930 
03940 ; 
03950 READ 
03940 
03970 
03980 
03990 

URITE 



04020 
04030 
04040 
04050 
04040 
04070 



04100 

04110 

04120 

04130 

04140 

04150 I 

04140 CHKUNA 

04170 

04180 

04190 1 

04200 

04210 

04220 

04230 

04240 

04250 

04240 ; 

04270 



LO 

CALL 

LD 

BIT 
JR 

RET 



(OCSREG),A 

SDELAY 

A.(DCSREG) 

0.A 

NZ.HOMEU 



ISENO TO CONTROLLER 

iGET DISK STATUS 

iUAIT IF BUSY 
;aSE RETURN 



SELECT DISK GIVEN BY REGISTER C 



LO 

LD 

CP 

RET 

LO 

LD 

LD 

ADD 

ADD 

ADD 

ADD 

LD 

ADD 

LD 

RET 



Ht.,0 
A.C 

NDISKS 

NC 

(SEKDSK), A 

LiC 

H,0 

HL.HL 

HL.HL 

HLiHL 

HL.HL 

DE.DCB! 

HL.OE 

(CURDCB).HL 



ERROR CODE 

GET DRIVE NUMBER 

TOO LARGE? 

RETURN UITH HL=0 IF SO 

SEEK DISK NUMBER 

HL^DRIVE NUMBER 

IHL=HL«14 



OE=DISK CONT BLOCK ADD. 
ADD DRIVE OFFSET 
SAVE CURRENT DC8 ADD 
RETURN 



SET TRACK GIVEN BY REGISTER C 



LD 
LD 
RET 
i D 

CALL 

LD 

LD 

LD 

LD 

CALL 

LD 

BIT 

JR 

LD 

LD 

RET 

SET SECTOR GIVEN BY REGISTER C 
LD A.C 

LD (SEKSEO.A ; SAVE SECTOR TO SEEK 
RET i RETURN 

SET DMA ADDRESS GIVEN BY REGISTER BC 
LD (BMAADR).BC ; SAVE DMA AODRESS 
; RETURN 
'HE SELECTED SECTOR 
A.l 



A.C 
(SEKTRK).A 

A.(HSTDSK) 

DSKRDY 

A.(HSTTRK) 

(0ATREG1.A 

A.12H 

(DCSREG).A 

SDELAY 

A.(OCSREG) 

0.A 

NZ. SEEKU 

A.(KSTSEC) 

(SECREG).A 



SAVE TRACK TO SEEK 

RETURN 

GET CURRENT DISK 

READY DISK 

GET TRACK TO SEEK 

SEND TO OISK 

PERFORM TRACK SEEK 
SHORT DELAY 
GET DISK STATUS 

UAIT TILL FINISHED 
GET SECTOR TO SEEK 
SEND TO DISK 
THEN RETURN 



RET 

READ 

LD 

LD 

LD 

LD 

JP 

LD 

LD 

LD 

LD 

CP 

JR 



(READOP).A 

A.URUAL 

(URTYPE).A 

ALLOC 

A.0 

(REAQOPU 

A,C 

(URTYPE).A 

USUAL 

NZiOKUNA 



iFLAG READ OPERATION 

I TREAT AS UNALLOC 
;T0 PERFORM THE REAO 

NOT A READ OPERATION 
LOAD WRITE TYPE 
STORE IT 

WRITE UNALLOCATED ? 
CHECK FOR UNALLOC 



WRITE TO UNALLOCATED, SET PARAMETERS 



LD 
LD 
LD 
LD 
LC 
LD 
LD 
LD 



A.CPMSPB 
(UNACNT).A 
A.(SEKOSK) 
(UNADSK).A 
A.(SEKTRK) 
(UNATRK), A 
A.(LOGSEC) 
(UNASEC), A 



CPM SECTORS PER BLOCK 
NEXT UNALLOC RECS 
DISK TO SEEK 
UNADSK = SEKDSK 

;UNATRK = SEKTRK 

I UNASEC = LOGSEC 



CHECK FOR URITE TO UNALLOCATED SECTOR 

LD A.(UNACNT) ;ANY UNALLOC REMAIN 

OR A 

JP Z. ALLOC ISKIP IF NOT 

MORE UNALLOCATED RECORDS REMAIN 



nrr 



(UNACNT).A 
A, (SEKDSK) 
HL, UNADSK 
(HL) 

NZ, ALLOC 
DISKS ARE THE SAME 
LD A, (SEKTRK) 



LD 
LD 
CP 
JP 



iUNACNT = UNACNT-1 

ISAME DISK ? 

; SEKDSK = UNADSK 1 
ISKIP IF NOT 



B7AA 214B00 


04280 


LD 


HL.UNATRK 




B7AD BE 


04290 


CP 


(HL) 


: SEKTRK = UNATRK ? 


B7AE C2D337 


04300 


JP 


NZ.ALLOC 


■SKIP IF NOT 




04310 ; 


TRACKS ARE THE SAME 




B7B1 3A7CBC 


04320 


LD 


A, (LOGSEC) 




3734 214C00 


04330 


LD 


HL.UNASEC 




37B7 8E 


04340 


CP 


(HL) 


LOGSEC = UNASEC ? 


3738 C2D337 


04350 


JP 


NZ.ALLOC 






04340 i 


MATCH, 


MOVE TO NEXT SECTOR FOR FUTURE REF 


B7BB 34 


04370 


INC 


(HL! 


UNASEC = UNASEC+1 


87BC 44 


04380 


LO 


B,(HL) 


END OF TRACK ? 


B7BD 3A73BC 


04390 


LD 


A.ICPHSPT) 


GET SECTORS PER TRACK 


37C0 3D 


04400 


DEC 


A 




B7CI B8 


04410 


CP 


3 




B7C2 D2C3B7 


04420 


jp 


NC, NOOVF 


SKIP IF NO OVERFLOW 




04430 i 


OVERFLOW TO NEXT TRACK 




37C5 3400 


04440 


LD 


(HL),0 


UNASEC = 


37C7 214B00 


04450 


LD 


HL.UNATRK 




B7CA 34 


04440 


INC 


(HL) 


UNATRK = UNATRK+1 




04470 i 


MATCH FOUND, MARK AS UNNECESSARY READ 


B7CB 3E00 


04480 NOOVF 


LD 


A,0 




B7CD 324E00 


04490 


LD 


(RSFLAG).A 


SSFLAG = 


3700 C3DCB7 


04500 


JP 


RUOPER 


TO PERFORM THE WRITE 




04510 ; 


NOT UNALLOCATED RECORD, 


EOUIRES PRE-READ 


B7D3 3E00 


04520 ALLOC 


LD 


A.0 




B7D5 324900 


04530 


LD 


(UNACNT).A 


UNACNT = 


B7DB 3C 


04540 


INC 


A 




B7D9 324E00 


04550 


LD 


(RSFLAG).A 


RSFLAG = 1 




04540 ; 


ENTER HERE TO PERFORM THE READ/URITE 


370C 3E00 


04570 RUOPER 


LD 


A,0 




B7DE 324000 


04580 


LO 


(ERFLAG).A 


NO ERRORS (YET) 


B7E1 3A4200 


04590 


LD 


A.(SEKSEC) 


GET SECTOR TO SEEK 


B7E4 CB3F 


04400 


SRL 


A 


COMPUTE HOST SECTOR «»» 


B7E4 3C 


04410 


INC 


A 




37E7 324400 


04420 


LD 


(SEKHST).A 


HOST SECTOR TO SEEK 




04430 ; 


ACTIVE HOST SECTOR ? 




37EA 214700 


04440 


LO 


HL.HSTACT 


HOST ACTIVE FLAG 


B7ED 7E 


04450 


LD 


A.(HL) 




37EE 3401 


04440 


LC 


(HL).l 


ALWAYS BECOMES 1 


37F0 37 


04470 


OR 


A 


UAS IT ACTIVE ALREADY ? 


87 c ; CA233B 


04480 


JP 


Z, FILHST 


FILL HOST IF NOT 




04490 ! 


HOST BUFFER ACTIVE, SAME 


AS SEEK BUFFER ? 


B7F4 3A4000 


04700 


LD 


A, (SEKDSK) 




B7F7 214300 


04710 


LO 


H'uHSTDSK 


SAME DISK ? 


B7FA BE 


04720 


CP 


(HL) 


SEKDSK = HSTDSK ? 


B7FB C21CB8 


04730 


JP 


NZ. NOMTCH 






04740 ; 


SAME DISK, SAME TRACK ? 




B7FE 3A4100 


04750 


LD 


A, (SEKTRK) 




BB01 214400 


04740 


LD 


HL.HSTTRK 




B804 BE 


04770 


CP 


(HL) 


SEKTRK = HSTTRK ' 


B805 C21CB8 


04780 


JP 


NZ. NOMTCH 






04790 i 


SAME DISK, SAME TRACK, SAME BUFFER ? 


B806 3A4400 


04800 


LD 


A.(SEKHST) 




B80B 214500 


04810 


LD 


HL.HSTSEC 


SECHST = HSTSEC ? 


B80E BE 


04820 


CP 


(HL) 




B80F C21CB8 


04830 


JP 


NZ.NOMTCH 




8812 3A4200 


04640 


LD 


A.(SEKSEC) 




BB15 217DBC 


04850 


LD 


HL.LSTSEC : 


SEKSEC = LSTSEC ' 


8818 BE 


04840 


CP 


(HL) 




B819 C247B8 


04870 


JP 


NZ.MATCH : 


REDO IF EXACT MATCH 




04880 i 


CORRECT DISK, BUT INCORRECT SECTOR 


B81C 3A4800 


04890 NOMTCH 


LD 


A.(HSTURT) i 


HOST WRITTEN ? 


B81FB7 


04900 


OR 


A 




B820 C4A2B8 


04910 


CALL 


NZ.URTHST ; 


CLEAR HOST BUFFER 




04920 J 


MAY HAVE TO FILL HOST BUFFER 


B823 3A4000 


04930 FILHST 


LD 


A, (SEKDSK) 




B824 324300 


04940 


LD 


(HSTDSK).A 




B829 3A4100 


04950 


LD 


A. (SEKTRK) 




B82C 324400 


04940 


LD 


(HSTTRK).A 




B82F 3A4400 


04970 


LD 


A.(SEKHST) 




B832 324500 


04980 


LD 


(HSTSEC)iA 




B835 3A4200 


04990 


LD 


A.(SEKSEC) 




B838 327D8C 


»5to0 


LO 


(LSTSEO.A 




B83B3A4E00 


05010 


LD 


A.(RSRAG) ; 


NEED TO REAO ? 


B83E B7 


05020 


OR 


A 




B83F C49288 


05030 


CALL 


NZ.fiDHST ; 


YES, IF 1 


B842 3E00 


05040 


LD 


A,0 




B844 324800 


05050 


LD 


(HSTURT).A i 


NO PENDING WRITE 




05040 i 


COPY DATA TO OR FROM BUFFER 


B847 3A4200 


05070 MATCH 


LD 


A.(SEKSEC) i 


MASK BUFFER NUMBER 



12 



B84A E401 


05080 


AND 


SECMSK ; 


LEAST SIG BITS 


B8E5 32EDF7 


05B80 


LD 


(TRKREG).A 




B64C 6F 


05090 


LD 


l.a ; 


READY TO SHIFT 


B8EB UEFF7 


05890 


LD 


DE.DATREG 


DISK DATA REGISTER 


BB4D 2600 


05100 


LO 


H.0 




B8EB 0185BC 


05900 


LD 


BC.HSTBUF 


DISK BUFFER BASE ADO 


BB4F 2? 


05110 


ADO 


KL.HL i 


SHIFT LEFT 7 


B8EE 3A74BC 


05910 


LD 


A.(DSKCOM) 


GET COSWffl 


BB50 29 


05120 


ADD 


HLiHL 




B8F1 77 


05920 


LD 


(HL).A 


ISSUE COMMAND 


B851 29 


05130 


ADD 


HL.HL 




B8F2 C0DEB9 


05930 


CALL 


SDELAY 


SHORT DELAY 


BB52 29 


05140 


ADD 


HL,HL 




B8F5 CB6F 


05940 


BIT 


5, A 




B853 29 


05150 


ADD 


HL.HL 




B8F7 CA05B9 


05950 


JP 


Z.UAIT2 


JUMP IF READ 


B854 29 


05140 


ADD 


HL.HL 




B8FA 7E 


05960 UAIT1 


LO 


A.IHL) 


WAIT FOR DATA REQUEST 


8855 29 


05170 


ADD 


HL.HL 




B8FB E683 


05970 


AND 


83H 




B854 11B5BC 


05180 


LD 


DE.HSTBUF 


HOST BUFFER BASE 


BBFD E2FAB8 


05980 


JP 


P0.WA1T1 




8859 49 


05190 


AOD 


HL.DE 


ADO OFFSET 


8*900 0A 


05990 


LD 


A, (BO 


GET FIRST BYTE TO WRT 


B85A EB 


05200 


EX 


OE.HL 


PUT RESULT IN DE 


B901 03 


04000 


INC 


BC 


INCREMENT POINTER 


B858 2A49BC 


05210 


LD 


HL.(OMAADR) 


CPM DATA ADDRESS 


B902 C30BB9 


06010 


JP 


TRNFER 


BEGIN TRANSFER 


885E BEB0 


05220 


LD 


C.12B 




B905 7E 


06020 UA1T2 


LO 


A.(HL) 


GET DISK STATUS 


B860 0600 


05230 


LD 


B.0 


128 BYTES TO MOVE 


B906 E6B3 


06030 


AND 


83H 


READY FOR FIRST BYTE ? 


BB62 3A4F00 


05240 


LD 


A.(REAOOP) 


UHICH WAY ■>. 


8908 E205B9 


06040 


JP 


P0.UAIT2 


WAIT IF NOT 


B865 B7 


05250 


OR 


A 




890B 0A 


06050 TRNFER 


LD 


Ai(BC) 


N,B. READ CASE SHOWN 


B866 C26FB8 


05240 


JP 


NZ,RWMOVE 


SKIP IF READ 


B90C 12 


06060 


LD 


(DE).A 


INSTUCTS CHANGED FOR WRT 




05270 ; 


WRITE OPERATION, MARK AND SU1TCH DIRECTION 


B90D 03 


06070 


INC 


BC 


INC BUFFER POINTER 


B869 3E01 


052B0 


LO 


A.l 




B90E C84E 


06080 WA1T3 


BIT 


l.(HL) 


REAOY FOR NEXT BYTE? 


B86B 324800 


05290 


LD 


(HSTURT).A 


HSTWRT = 1 


B910 20F9 


06090 


JR 


NZ, TRNFER 


IF SO JUMP 


B86E EB 


05300 


EX 


OE.HL 


SOURCE/DEST SWAP 


B912 CB4E 


06100 


BIT 


l.(HL) 






05310 ; 


MOVE 128 BYTES FROM DE TO HL 


B9U 20F5 


06110 


JR 


NZ, TRNFER 




B86F EB 


05320 (MOVE 


EX 


DE.HL 




B914 CB4E 


06120 


BIT 


li(Hl) 




B870 EBB0 


05330 


LOIR 




MOVE DATA BLOCK 


B918 20F1 


04130 


JR 


NZ, TRNFER 






05340 i 


DATA HAS BEEN MOVED TO/FROM HOST BUFFER 


B91A CB44 


04140 


BIT 


0,(HL) 


OPERATION COMPLETE ? 


B872 3A71BC 


05350 


LD 


A.(WRTYPE) 


URITE TYPE 


B91C 2812 


04150 


JR 


Z, RUCOMP 




BB75 FE01 


05340 


CP 


URD1R 


TO DIRECTORY ? 


B91E CB4E 


04140 


BIT 


I.tHL) 




BB77 3A4D00 


05370 


LD 


A.(ERFLAG) 


IN CASE OF ERRORS 


B920 20E9 


04170 


JR 


NZ, TRNFER 




BB7A C0 


05380 


RET 


NZ 


NO FURTHER PROCESSING 


B922 CB7E 


06160 


3IT 


7,(HL! 


TIMED OUT 1 




05390 1 


CLEAR HOST BUFFER FOR OK 


ECTORY URITE 


B924 28E8 


06190 


JR 


Z.UAIT3 


LOOP IF NOT 


BB7B B7 


05400 


OR 


A 


ERRORS ? 


B924 3400 


06200 


LD 


(HD.0D0H 


FORCE INTERRUPT 


BB7C C0 


05410 


RET 


NZ 


SKIP IF SO 


B928 215DBF 


06210 


LO 


HL.MESS3 




BB70 3E00 


05420 


LO 


A.0 




B92B CDB9BA 


06220 


CALL 


SD1SP 




B87F 324800 


05430 


LO 


(HSTWRT).A 


BUFFER WRITTEN 


B92E 185E 


06230 


JR 


RWERR 




B8B2 C0A2B8 


05440 


CALL 


URTHST 




B930 7E 


06240 RUCOMP 


LD 


A.(HL) 


GET STATUS 


B8B5 3A4O00 


05450 


LO 


A.(ERFLAG) 




B931 3276BC 


06250 


LD 


(ERCODE).A 


SAVE ERROR CODE 


B8B8 C9 


05440 


RET 




RETURN 


B934 5F 


06260 


LO 


E.A 






05470 1 


INITIALISE BLOCKING FLAK 




B935 3A72BC 


06270 


LD 


A.(ERMASK) 




BB8? 3E00 


05460 BLiNIT 


LD 


A.0 




B93B A3 


06280 


AND 


E 


MASK COOE 


BBBB 324700 


05490 


LD 


(HSTACT).A 


HOST BUFFER INACTIVE 


B939 324000 


06290 


LO 


(ERFLAG).A 




BBBE 324900 


05500 


LD 


(UNACNT).A 


CLEAR UNALLOC COUNT 


B93C CB 


06300 


RET 


Z 


RETURN IF NO ERROR 


B891 CV 


05510 


RET 




RETURN 


B930 3A75BC 


06310 


LD 


A.(TRYCNT) 


GET RETRY COUNT 




05520 ; 


READ PHYSICAL SECTOR INK 


) SECBUF 


3940 3D 


06320 


DEC 


A 


DECREMENT IT 


B872 3E1C 


05530 RDHST 


LD 


A.1CH 


SET ERROR MASK 


8941 3275BC 


06330 


LD 


(TRYCNT).A 


SAVE IT 


B8V4 3272BC 


05540 


LO 


(ERMASK).A 




B944 2846 


06340 


JR 


Z.RWERR 


ERROR IF COUNT = 


B897 211A02 


05550 


LD 


HL.021AH 


SET TRANSFER DIRECTION 


8946 3A74BC 


06350 


LD 


A.(DSKCOM) 


GET DISK COMMAND 


889A 220BB9 


05560 


LD 


(TRNFER).HL 




B949 C36F 


06360 


BIT 


5.A 




B890 3E8C 


05570 


LD 


A.6CH 


SECTOR READ COMMAND 


B94B C2CAB8 


06370 


JP 


NZ, RETRY 


JUMP IF URITE 


B89F C3B2B8 


05580 


JP 


OISKRU 


PERFORM REAO 


394E 2A778C 


06380 


LD 


HL.IDENPT) 


LOAD 0ENS1TY POINTER 




05590 i 


WRITE PHYSICAL SECTOR FR( 


)M SECBUF 


B951 7E 


06390 


LD 


A.(HL) 


GET DENSITY MODE 


B8A2 3E7C 


05400 URTHST 


LD 


A.7CH 


SET ERROR MASK 


B952 2F 


06400 


CPL 




COMPLEMENT IT 


B8A4 3272BC 


05410 


LD 


(ERMASK).A 




3953 E601 


06410 


AND 


1 


MASK IT 


B8A7 2U20A 


05420 


LD 


HL.0A12H 


SET TRANSFER DIRECTION - 


B955 77 


06420 


LD 


(HL).A 


SAVE NEW DENSITY 


8BAA 220BB9 


05430 


LD 


(TRNFER).HL 




B956 2008 


06430 


JR 


NZ.D0U3LE 




B8A0 3EAC 


05440 


LD 


A.0ACH 


SECTOR URITE COMMAND 


B958 01E2BB 


06440 SINGLE 


LD 


BC.SECTN1 


SECTOR TRANSLATE TAB 1 


BBAF C3B2B8 


05450 


JP 


DISKRU 


PERFORM WRITE 


B95B U1ABC 


06450 


LD 


DE.OPB! 


DISK PARAM BLOCK 1 




05440 I 


DISK SECTOR READ/URITE 




B95E 1806 


06460 


JR 


SETOEN 


SET NEW DENSITY 


BB82 3274BC 


05670 OISKRU 


LO 


(OSKCOM).A 


SAVE DISK COMMAND 


B940 01F4B8 


06470 DOUBLE 


LD 


BCSECTN2 


SECTOR TRANSLATE TAB 2 


B885 CD35B7 


05680 


CALL 


SEEK 


SEEK DISK 


B963 1129BC 


064B0 


LD 


0E.0PB2 


DISK PARAM BLOCK 2 


B8BB 3E06 


05690 


LD 


A. 4 


MAX RETRY COUNT 


B966 DD2A79BC 04490 SETOEN 


LD 


IX.(CURDCB) 


CURRENT DCB AODRESS 


B8BA 3275BC 


05700 


LD 


(TRYCNT).A 




B96A DD7100 


06500 


LD 


(IX+0),C 


INSERT NEW TRANSLATE 


BBBD 2182BC 


05710 


LD 


HL.OENTAB 


DENSITY TABLE BASE 


B960 DD7001 


06510 


LD 


(IXH).B 


TABLE AODRESS 


BBC0 mm 


05720 


LD 


A.(HSTDSK) 


CURRENT DISK NUMBER 


3970 DD730A 


06520 


LD 


(!X+0AK),E 


INSERT NEW DISK 


B8C3 5F 


05730 


LD 


E.A 




B973 DD720B 


06530 


LO 


(IXi0BH),O 


PARAMETER BLOCK ADDRESS 


B8C4 1603 


05740 


LD 


0,0 




B976 EO43D0B4 06540 


LD 


(034D0H).BC 


GIVE BOOS NEW SECTRAN 


B8C6 19 


05750 


ADD 


HL.DE 


AOD TO BASE ADO 


B97A E053BBB4 06550 


LD 


(0B4BBH1.DE 


GIVE BOOS NEW DPS 


B8C7 2277BC 


05760 


LD 


(DENPT).HL 


SAVE POINTER TO DENSITY 


B97E 1A 


06560 


LD 


A. (0E) 


GET NEW SECTS PER TRACK 


B8CA 3A4300 


05770 RETRY 


LD 


A.(HSTDSK) 


GET CURRENT DISK 


B97F 32733C 


06570 


LD 


(CPMSPT).A 


SAVE IT 


B8C0 C094S9 


05760 


CALL 


OSKRDY 


READY DISK 


B9B2 21C1B4 


06580 


LD 


HL.0B4C1H 


BDOS WORKING DPS ADD 


B8D0 2A77BC 


05790 


LD 


HL.IDENPT) 


GET DENSITY POINTER 


B985 E8 


06590 


EX 


DE.a 


PUT LOCAL DPB ADD IN HL 


B803 7E 


05800 


LD 


A,(Kt) 


GET DENSITY MODE 


B986 010F00 


06600 


LD . 


BC.0FH 




B804 F6FE 


05810 


OR 


0FEH 


SET BITS 1-7 


3989 EDB0 


06610 


LDIR 




TRANSFER 15 BYTES 


B8D4 21ECF7 


05820 


LD 


HL.OCSREG 


DISK COMMAND/STAT REG 


B98B C3CAB8 


06620 


JP 


RETRY 


RETRY SECTOR REAO 


B8D9 77 


05630 


LO 


(HL).A 


SET DENSITY 


B98E 3E01 


06630 RWERR 


LD 


A.l 


ELSE SET ERROR FLAG 


B8DA 36D0 


05840 


LO 


(HL1.0D0H 


FORCE INTERRUPT 


3990 324000 


06640 


LD 


(ERFLAG).A 




BBDC 3A4500 


05850 


LO 


A.(HSTSEC) 


TRANSFER CURRENT SECTOR 


B993 C9 


06650 


RET 




AND RETURN 


B8DF 32EEF7 


05840 


LD 


(SECREG).A 




B994 4F 


06660 OSKROY 


LO 


C.A 




B8E2 3A4400 


05B70 


LO 


A.(HSTTRK) 


TRANSFER CURRENT TRACK 


B995 3E01 


06670 


LO 


Ail 


INITIALISE A 
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B997 0C 


066B0 


INC 


C 




B99B 0D 


06690 SEL1 


DEC 


r 




B999 2B03 


06700 


JR 


Z.SEL2 




B99B B7 


06710 


ADD 


A, A 


1 SHIFT ACCUM LEFT 


B99C 1BFA 


06720 


JR 


SEL.1 




B99E 324BBC 


06730 SEL2 


LD 


(DRVCOD).A 


iSAVE DRIVE SaECT CODE 


B9A1 3AECF7 


06740 


LO 


A.(OCSREG) 


;GET DISK STATUS 


B9A4 CB7F 


06750 


BIT 


7, A 


US MOTOR ON? 


B9A6 3A6BBC 


06760 


LD 


A.(DRVCOD) 


;GET DRIVE SELECT CODE 


B9A9 32E0F7 


06770 


LD 


(DRVREG).A 


;SELECT DRIVE 


B9AC 2B0B 


06780 


JR 


Z.MOTON 


iJUHP IF MOTOR ON 


B9AE 0405 


06790 


LD 


B.,5 


;500MS MOTOR ON DELAY 


39B0 C0D3B9 


06800 


CALL 


DELAY 




B9B3 CD25B6 


06810 


CALL 


VERM 


i PERFORM CHECKSUM TEST 


39B6 3A4BBC 


06820 M0T0N 


LD 


A,(DRVCOD) 


iGET DRIVE CODE 


B9B9 47 


06830 


LD 


8, A 




B9BA 3A6CBC 


06840 


LD 


A,(LSTCOD) 


;GET LAST CODE 


89BD SB 


06650 


CF 


D 


iSAME AS NEW CODE? 


B9BE 2B0B 


06860 


JR 


Z.REAOY 




39C0 CD07B7 


06B70 


CALL 


HOME! 


;HOME HEAD IF NOT 


39C3 060! 


06BB0 


LD 


3,1 


;AND DELAY 100MS 


B9C5 CDD339 


06890 


CALL 


DELAY 




B9CB 3A688C 


06900 READY 


LD 


A>(0RVCOD) 


;SELECT DRIVE 


39C3 326C3C 


06910 


LD 


(LSTCOD).A 


iUPDATE LAS T DRIVE CODE 


39CE 32E0F7 


06920 


LD 


(DRVREG).A 




3901 -3 


06930 


m 




IDISABLE INTERRUPTS 


39D2 C9 


06940 


RET 




iRETURN 


B9D3 11A31A 


06950 DELAY 


LD 


DE.1AA3H 


;SET CORE TIME 


89D6 IB 


06960 LOOP 


DEC 


DE 


; DECREMENT CORE TIME 


B9D7 7B 


06970 


LD 


A,E 


;DE=0 ? 


S9DB B2 


069B0 


OR 


D 




39D9 20FB 


06990 


JR 


NZ.LOOP 


;LOOP IF NOT 


B9DB 10F6 


07000 


DJNZ 


DELAY 


; DECREMENT TIME 


39DD C9 


07010 


RET 




;AND RETURN 


B9DE C5 


07020 SDELAY 


PUSH 


SC 


; SHORT DELAY 


B9DF CI 


07030 


POP 


3C 




39E0 C9 


07040 


RET 




iRETURN 




07050 , 


GET L 


1ST DEVICE STA T US 




B9E1 3AEBF7 


07060 LISTST 


LD 


A,(PR T REG) 


;GE T PRINTER STATUS 


39E4 E6S0 


07070 


AND 


80H 


iMASK BUSY B! T 


39E6 3E00 


07060 


LD 


A,0 




B9EB C0 


07090 


RET 


NZ 


IRETURN UITH ! c BUSY 


39E9 3EFF 


07100 


LO 


A.0FFK 


lELSE RETURN cr H 


39EB C9 


07110 


RET 








07120 , 


SECTOR TRANSLATION ROUTINE 


39EC 79 


07130 5EC T RN 


LD 


A,C 




B9ED 327C3C 


07140 


LO 


(L0GSEO,A 


iSAVE LOGICAL SECTOR 


B9F0 69 


07150 


L3 


LiC 


,4L=L0GICAL SECTOR 


B9F1 60 


07160 


LD 


H,8 




39 c 2 19 


07170 


ADD 


HL.DE 


iADD MAP ADDRESS 


B9F3 6E 


07180 


LD 


L.(HL) 


iHL=PHYSICAL SECTOR 


39F4 2600 


07190 


i n 


H,0 




39F6 C9 


07200 


RET 




iRETURN 




07210 ! 


VIDEO CONSOLE OISPLA* ROUTINE 


39F7 FEB0 


07220 DISP 


CF 


B0H 




B9F9 D0 


07230 


RET 


NC 


iRETURN IF CHAR>80H 


39FA 2A60BC 


07240 


LD 


HL.(CURPOS) 


iGET CURSOR POSITION 


B9FD FE20 


07250 


CP 


20K 




39FF DA40BA 


07260 


JP 


C.CONT 


iJUMP I! 7 CONTROL CHAR 


3A02 FE5B 


07270 


CP 


5BH 


;IF CHR=58.5Ci5D,5E 


BA04 3B0E 


07280 


JR 


C.DSPCHR 




BA06 FE5F 


07290 


CP 


5FH 




BA0B 300A 


07300 


JR 


NC.DSPCHR 


iTHEN 


BA0A EB 


. 07310 


EX 


DE.HL 


iLOAD CHAR FROM TABLE 


BA0B 21B3BB 


07320 


LD 


HL.CHRTAB-5BH 




3A0E 0600 


07330 


LD 


B,0 




BA10 4F 


07340 


LD 


CA 




BAH 09 


07350 


ADD 


HL.BC 




BA12 7E 


07360 


LO 


A,{HL) 




BA13 EB 


07370 


EX 


DE.HL 




BAH 77 


073B0 OSPCHR 


LD 


(HL)>A 


iDISPLAY CHARACTER 


BA15 23 


07390 


INC 


HL 


; ADVANCE CURSOR 


BA16 7C 


07400 CURSET 


LD 


A>H 




BA17 A7 


07410 


AND 


A 


i SEE IF OFF SCREEN 


BA18 CC21BA 


07420 


CALL 


Zi SCROLL 


ilF SO SCROLL DISPLAY 


BA1B 345F 


07430 


LD 


(HU.5FH 


iURlTE CURSOR 


BA1D 226DBC 


07440 


LD 


(CURPOS).HL 


iSAVE CURSOR POSITION 


BA20 C? 


07450 


RET 




iRETURN 


BA21 UMFC 


07460 SCROLL 


LD 


OE>0FC00H 


iPOINT TO TOP OF DISP 


BA2* 2140FC 


07470 


LD 


HL.0FC40H 


iPOINT TO ROU 2 



BA27 01C003 


074B0 


LO 


BC>03C0H 


i 15 ROUS TO MOVE 


BA2A EDB0 


07490 


LDIR 




: PERFORM SCROLL 


BA2C 3E20 


07500 


LD 


A.20H 


iLOAD BLANK 


BA2E 32C0FF 


07510 


LD 


(0FFC0H),A 


i STORE AT BEG. ROU 16 


BA31 21C0FF 


07520 


LD 


HL>0FFC0H 


iPOINT TO FIRST CHAR 


BA34 11C1FF 


07530 


LD 


DE.0FFC1H 


iPOINT TO SECOND CHAR 


BA37 013F00 


07540 


LO 


BC.63 


163 CHARS TO MOVE 


BA3A EDB0 


07550 


LDIR 




iBLANK ROU 16 


BA3C 21C0FF 


07560 


LO 


HL.0FFC0H 


iSET CURSOR POSITION 


BA3F C9 


07570 


RET 




iRETURN 


BA40 FE08 


07580 CONT 


CP 


08H 




BA42 CA8CBA 


07590 


JP 


Z, BACKSP 


i BACKSPACE 


BA45 FE0A 


07600 


CP 


0AH 




BA47 CA82BA 


07610 


JP 


Z. LINEFD 


iLlNE FED 


BA4A FE0D 


07620 


CP 


0DH 




BA4C CA70BA 


07630 


JP 


Z. CARRET 


i CARRIAGE RETURN 


BA4F FE0C 


07640 


CP 


0CH 




BA51 CA5ABA 


07650 


JP 


Z.CLEAR 


i CLEAR SCREEN (FF) 


BA54 FE07 


07660 


CP 


07H 




BA56 C397BA 


07670 


JP 


BELL 


iBELL 


BA59 C9 


07680 


RET 




iRETURN 


BA5A 3E20 


07690 CLEAR 


LD 


A.20H 


iBLANK CHAR. AT 


BA5C 3200FC 


07700 


LD 


(0FC00H),A 


iFIRST SCREEN POS. 


BA5F 2100FC 


07710 


LD 


HL.0FC00H 




BA62 1101FC 


07720 


LO 


DE.0FC01H 




BA65 01FF03 


07730 


LO 


BC.03FFH 




BA68 EDB0 


07740 


LDIR 




iBLANK SCREEN OUT 


BA6A 2100FC 


07750 


LO 


HL.0FC00H 


iHOME CURSOR 


BA6D C316BA 


07760 


JP 


CURSET 


iSET CURSOR 


BA70 CD7BBA 


07770 CARRET 


CALL 


CURDEL 


i DELETE CURSOR 


BA73 70 


077B0 


LD 


A,L 


iLOAD LOU BYTE 


BA74 E6C0 


07790 


AND 


0C0H 


!G0 TO BEG. OF LINE 


BA74 6F 


07800 


LD 


L.A 




BA77 226DBC 


07B10 


LD 


(CURPOS)iHL 


iSAVE CURSOR POSITION 


BA7A C9 


07B20 


RET 




iRETURN 


BA7B 7E 


07B30 CURDEL 


LD 


A, (a) 


iGET CHAR AT CURSOR 


BA7C FE5F 


07840 


CP 


5FH 


i CURSOR CHAR? 


BA7E C0 


07B50 


RET 


NZ 


iRETURN IF NOT 


BA7F 3620 


07860 


LD 


(HL1.20H 


ilF SO BLANK IT 


BA81 C9 


07870 


RET 




iRETURN 


BA82 C07BBA 


07B80 LINEFD 


CALL 


CURDEL 


i DELETE CURSOR 


BA85 114000 


07890 


LD 


DE.40H 




BA88 19 


07900 


ADD 


HL.DE 


iMOVE DOUN ONE LINE 


BA89 C316BA 


07910 


JP 


CURSET 


iSET CURSOR 


BA8C 7C 


07920 BACKSP 


LD 


A.H 


iSEE IF CURSOR 


BA8D D6FC 


07930 


SUB 


0FCH 


iAT HONE POSITION 


BASF B5 


07940 


OR 


L 




BA90 CB 


07950 


RET 


Z 


i IF SO ABORT BACKSP 


BA91 3620 


07960 


10 


(HL1.20H 


i ERASE CURSOR 


BA93 2B 


07970 


DEC 


HL 


iMOVE CUR. BACK ONE 


BA94 C316BA 


07980 


JP 


CURSET 


iSET CURSOR 


BA97 21C800 


07990 BELL 


LD 


HL.200 


i200NS LENGTH 


BA9A 0644 


08000 BELLI 


LD 


B>68 


11KHZ FREQ 


BA9C 10FE 


08010 BELL2 


DJNZ 


BELL2 


iTIME 1/2 CYCLE 


BA9E 3E00 


0B020 


LD 


A.0 




BAA0 D3FF 


08030 


OUT 


(255), A 


i OUTPUT IT 


BAA2 0644 


08040 


LD 


B.68 




BAA4 10FE 


08050 BELL3 


DJNZ 


KLL3 


iTIME 1/2 CYCLE 


BAA6 3E01 


08060 


LD 


A.l 




BAA8 03FF 


0B070 


OUT 


(255). A 


i OUTPUT IT 


BAAA 2B 


08080 


DEC 


HL 


iDEC CYCLE COUNT 


BAAB 7C 


08090 


LD 


A.H 




BAAC B5 


08100 


OR 


L 


iiS IT ZERO? 


BAAO 20EB 


08110 


JR 


NZ.BELL1 


iLOOP IF MOT 


BAAF C9 


08120 


RET 








08130 ; 


STRING DISPLAY ROUTINES 




BAB0 7E 


08140 SOSP 


LD 


A,(HL) 


iGET CHAR TO DISPLAY 


BAB1 A7 


08150 


AND 


A 


iTERMNATOR? 


BAB2 CB 


08160 


RET 


Z 


iRETURN IF SO 


BAB3 CD3300 


08170 


CALL 


DSP 


iaSE DISPLAY IT 


BAB6 23 


08180 


INC 


HL 


iINC STRING POINTER 


BAB7 1BF7 


08190 


JR 


SDSP 


iLOOP TILL DONE 


BAB9 7E 


08200 SDISP 


LO 


A.(HL) 


iGET CHAR TO DISPLAY 


BA8A A7 


08210 


AND 


A 


iTERHINATOR? 


BABB CB 


08220 


RET 


Z 


iRETURN IF SO 


BABC E5 


08230 


PUSH 


HL 


iSAVE POINTER 


BABD CDF7B9 


08240 


CALL 


DISP 


iDISPLAY CHAR 


BAC0 El 


08250 


POP 


HL 


iRESTORE POINTER 


BAC1 23 


08260 


INC 


HL 


iINC STRING POINTER 


BAC2 1BF5 


08270 


JR 


SDISP 


iLOOP TILL DONE 
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BAC4 3AE0F7 
BAC7 CB7F 
BAC9 2624 
8ACB 3A7EBC 
BACE A7 
BACF 281E 
BAM 3A80BC 
BAM A7 
8AOS2886 
BAD7 3D 
BAOB 3280BC 
BADB 2012 
8AD0 3A81BC 
BAE0 3D 
BAE1 32B1BC 
BAE4 2009 
BAE6 3E03 
BAE8 32B1BC 
BAEB 3A7FBC 
BAEE C9 
BAEF 2105BE 
BAF2 0101F8 
BAF5 1600 
BAF7 0A 
BAFB 5F 
BAF9AE 
BAFA 280A 
BAFC F5 
BAFD AF 
BAFE 327EBC 
B801 Fl 
BB02 73 
BB03 A3 
BB04 2008 
BB06 U 
BB07 23 
BB0B CB01 
BB0A F2F7BA 
BB0D C9 
BB0E 5F 
BB0F 3E01 
BBU 327EBC 
BB14 3E1E 
BBU 3280BC 
BB19 7A 
BB1A 07 
BB1B 07 
BB1C 07 
BB1D 57 
BB1E 0E01 
BB20 79 
BB21 A3 
BB22 2005 
BB24 14 
3B25 CB01 
BB27 18F7 
BB29 3A80F8 
BB2C 47 
BB2D 7A 
BB2E C640 
BB30 FE60 
BB32 3018 
BB34 57 
BB35 3A40F8 
BB38 E610 
BB3A 200B 
BB3C 3A70BC 
BB3FB8 
BB40 263E 
BB42 7A 
BB43 C620 
BB45 183B 
BB47 7A 
BB48 D640 
BB4A 1833 
BB4C 0670 
BB4E 3021 
BB50 C440 
BB52 2140F8 



08290 KEY 

08300 

08310 

08320 

08330 

08340 

08350 

08360 

08370 

08380 

06390 



KEYBOARD SCAN ROUTINE 



08410 REPEAT 

08420 

0B430 

08440 

08450 

08460 

08470 



0B490 KEY1 



08510 

08520 NXTROU 

08530 

08540 

08550 

0B560 

08570 

08580 



08620 

08630 NOCHNG 
08640 
0B650 



08670 
086B0 PRESS 



08710 
08720 



08740 
08750 
08760 
08770 



NXTCOL 



08850 FOUND 



0B910 
08920 



08940 
08950 



08970 



09010 CONTRL 
09020 



09040 NONLET 
09050 



09070 



LO 

BIT 

JR 

LD 

ANO 

JR 

LO 

ANO 

JR 

DEC 

LD 

JR 

LO 

DEC 

LO 

JR 

LD 

LO 

LO 

RET 

LD 

LD 

LO 

LD 

LD 

XOR 

JR 

PUSH 

XOR 

LD 

POP 

LO 

ANO 

JR 

INC 

INC 

RLC 

JP 

RET 

LD 

LO 

LD 

LO 

LO 

LD 

RLCA 

RLCA 

RLCA 

LO 

LD 

LD 

AND 

JR 

INC 

RLC 

JR 

LD 

LD 

LD 

AOD 

CP 

JR 

LD 

LD 

AND 

JR 

LD 

CP 

JR 

LD 

AOD 

JR 

LD 

SUB 

JR 

SUB 

JR 

ADD 

LD 



A.(DRVREG) 

7,A 

Z,KEY1 

A.(KEYACT) 

A 

Z.KEY1 

A.(RPTLAG) 

A 

Z.REPEAT 

A 

(RPTLAGhA 

N2/KEY1 

A,(RPTRAT) 

A 

(RPTRAT).A 

NZ.KEY1 

A.3 

(RPTRAThA 

A.(LSTKEY) 

HL.KEYBUF 

BC0F801H 

Oi0 

Ai(BC) 

E,A 

(HL) 

ZiNOCHNG 

AF 

A 

(KEYACTM 

AF 

(HL)iE 

E 

NZ.PRESS 

D 

HL 

C 

P, NXTROU 

E.A 

Ail 

(KEYACT).A 

A.30 

(RPTLAG).A 

A,D 



O.A 

C.l 

A,C 

E 

NZ, FOUND 

D 

C 

NXTCOL 

A,(0F880H) 

BiA 

A.O 

A.40H 

60H 

NCNONLET 

DiA 

A,(0F840H) 

10H 

NZ, CONTRL 

Ai(SHFLOC) 

B 

Z,KOEL 

A,D 

A.20H 

KOELAY 

A,D 

40H 

KDELAY 

70H 

NCLASTRU 

A.40H 

HL.0F840H 



iAUTO REPEAT FUNCTION 
i CHECK FOR 25HS PULSE 

; CHECK FOR ACTIVE KEY 



GET REPEAT LAG 

REPEAT IF EXPIRED 
aSE COUNTDOyN 
AND SAVE 

GET REPEAT RATE 
COUNTDOWN 
SAVE IT 

i RESET RATE 
SAVE IT 

IGET LAST KEY PRESSEO 
AND RETURN 
KEYBOARD BUFFER ADD 
:BC=ROU AOD POINT 
0=ROU COUNTER 
IGETROU 
iSAVE IN E 
CHANGE IN ROW ? 
SKIP IF NO CHANGE 



iCANCa ACTIVE FLAG 

."SAVE BYTE 

iiS KEY PRESSED? 

iINC ROW COUNTER 
iINC BUFF POINTER 
iPOINT TO NEXT ROU 
iLOOP TILL DONE 
iRET IF NO KEY PRESSED 
iSAVE ROU BYTE 

iSET KEY ACTIVE FLAG 

iSET DELAY BEFORE REPEAT 
iGET ROU COUNT 



D=ROU COUNT » 8 
SET TESTING MASK 
LOAO MASK 
JEST FOR KEY 
JUMP IF FOUND 
INC COLUMN COUNT 
SHIFT TEST BIT LEFT 
TEST NEXT COLUMN 
iGET SHIFT BIT 
SAVE IN B 
■ A=(ROU*BHCOL 
iADD 40H (FOR ASCII LETS) 
TEST FOR NON-LETTER 
JUMP IF NON-LETTER 
SAVE CHAR IN D 
iGET ROU 6 BITS 
TEST FOR DOUN ARROU 
IF SO CONVERT TO CONTROL 
GET SHIFT LOCK STATUS 
DOES IT MATCH SHIFT KEY' 
IF SO GO TO DELAY ROUT 
iRETRIEVE CHAR 
CONVERT TO LOUER CASE 
GO TO DELAY ROUT 
RETRIEVE CHAR 
TURN INTO CONTROL CHAR 
iGO TO DELAY ROUTINE 
TEST FOR LAST ROU 
JUMP IF LAST ROU 
iAOJUST FOR ROUS 4,5 
CHECK FOR CTRL 



BB55 CB66 


09080 


BIT 


4,(HL) 




BB57 200E 


09090 


JR 


NZiEXCONT 




BB59 FE3C 


09100 


CP 


3CH 


; IF CHAR < = > ? 


BB5B 3802 


09110 


JR 


CiNOM 




BB5D EE10 


09120 


XOR 


10H 


ITHEN TOGGLE SHIFT 


BB5F CB08 


09130 N0N1 


RRC 


B 


iGET SHIFT BIT 


BB61 301C 


09140 


JR 


NCKDELAY 


iJUKP IF NO SHIFT 


BBA3 EE10 


09150 


XOR 


10H 


iAOJUST ASCII 


BB65 1818 


09160 


JR 


KDELAY 


iGO TO DELAY ROUTINE 


BB67 5F 


09170 EXC0N1 


LD 


EiA 


iGENERATE POINTER 


BB68 1600 


09180 


LD 


D,0 




BB6A 219EBB 


09190 


LD 


HL,CONTAB-30H 


iRELATIVE TABLE BASE 


BB60 19 


09200 


ADD 


HLiDE 




BB6E 7E 


09210 


LD 


A,(HL) 


iGET CHAR FROM TABLE 


BB6F 180E 


09220 


JR 


KOELAY 




BB71 07 


09230 LASTRl 


RLCA 




A=(ROU»8«OL-48)»2 


BB72 CB08 


09240 


RRC 


B 


GET SHIFT BIT 


BB74 3001 


09250 


JR 


NCLASTi 


JUMP IF NO SHIFT 


BB76 3C 


09260 


INC 


A 


A=C0L*2 1 1 


BB77 21BEBB 


09270 LAST1 


LD 


HL, KEYTAB 


POINT TO KEY TABLE 


8B7A 4F 


09280 


LD 


CA 


GET DISPLACEMENT 


3B7B 0600 


09290 


LD 


3,0 




BB7D 09 


09300 


ADD 


HLiBC 


COMPUTE TABLE POSITION 


BB7E 7E 


09310 


LO 


A,(HL) 


GET ASCII CODE 


B37F 57 


09320 KDELAY 


LO 


D,A 


SAVE CHARACTER 


BBB0 010015 


09330 KDEL 


LD 


3C1500H 


LOAD DELAY COUNT 


3B83 03 


09340 KLOOP 


DEC 


3C 


DEC DELAY COUNTER 


BB84 78 


09350 


LO 


A,B 


SEE IF ZERO 


BBB5 3! 


09360 


OR 


C 




3BB6 20FB 


09370 


JR 


NZ, KLOOP 


LOOP IF NOT 


BBB8 7A 


09380 


LD 


A,D 


RETRIEVE CHARACTER 


BB89 327F3C 


09390 


LD 


(LSTKEYl.A 


SAVE IT 


BBBC FEFF 


09400 


CP 


0FFH 


SHIFT LOCK CHAR' 


3B8E C0 


09410 


RET 


NZ 


RETURN IF N0 T 


3B8F 3A703C 


09420 


LO 


A,(SHFLOC) 


GET SHIFT LOCK STATUS 


BB92 2F 


09430 


CPL 




COMPLEMENT IT 


3393 E601 


09440 


AND 


I 


MASK IT 


3B95 32703C 


09450 


LO' 


(SHFLOO.A 


SAVE IT 


BB93 3E00 


09460 


LO 


A,0 


ZERO ACC 


BB9A C9 


09470 


RET 




RETURN 




09480 i 


DATA TERMINAL MODE DRIVER 




B89B 216CBF 


09490 TERMIN 


LD 


HL.MESS4 




3B9E CDB9BA 


09500 


CALL 


SDISP 


DISPLAY MESSAGE 4 


BBA1 C0C4BA 


09510 TERM! 


CALL 


KEY ; 


SCAN KEY30AR0 


3BA4 E67F 


09520 


AND 


7FH 




3BA6 2507 


09530 


JR 


Z.TERMO 




33A3 FE05 


09540 


CP 


5 ; 


CTRL-E PRESSED' 


B3AA C8 


09550 


RET 


Z ; 


EXIT IF SO 


3BAB 4F 


09560 


LD 


CA 




SBAC C0E336 


09570 


CALL 


SS2320 ; 


ELSE SEND CHAR 


3BAF DBEA 


09580 TESMO 


IN 


A,(RSSTAT) ; 


GET RS232 STATUS 


3331 C37F 


09590 


BIT 


7, A ; 


CHAR RECEIVED' 


BB33 28EC 


09600 


JR 


Z.TERMI ; 


-OOP IF NOT 


3B35 DBE3 


09610 


IN 


A,(RSOATA) i 


GET CHAR 


3B37 E67F 


09620 


AND 


7!=H i 


RESET HIGH 31 T 


B3B9 CDF7B9' 


09630 


CALL 


01SP i 


DISPLAY CHARACTER 


3BBC 1BE3 


09640 


JR 


TERMI i 


AND LOOP 


BBBE 0D0D 


09650 KEYTAB 


DEFU 


0D0DH ; 


ENTER 


88C0 7FFF 


09660 


DEFU 


0FF7™ I 


CLEAR 


BBC2 0303 


09670 


DErU 


0303H ; 


3REAK 


BBC4 5E1B 


09680 


OEFU 


135EH i 


JP ARROU 


BBC6 0000 


09690 


DEFU 


0000H ; 


30UN ARROU 


BBC8 0818 


09700 


DEFU 


1B08H 


-EFT ARROU 


BBCA 0919 


09710 


OEFU 


1909H ; 


JIGHT ARROU 


BBCC 2020 


09720 


DEFU 


2020H i 


SPACE BAR 


3BCE IB 


09730 CONTAB 


DEFB 


1BH : 


:trl 


BBCF 1C 


09740 


DEFB 


1CH ; 


TRL 1 


BBD0 ID 


09750 


DEFB 


1DH i 


TRL 2 


BBD1 IE 


09760 


DEFB 


1EH ; 


TRL 3 


3BD2 IF 


09770 


DEFB 


1FH i 


TRL 4 


3BD3 7C 


097B0 


DEFB 


7CH i 


TRL 5 


3BD4 7E 


09790 


DEFB 


7EH ; 


TRL 6 


3BD5 7F 


09800 


DEFB 


7FH ; 


TRL 7 


BBD6 5B 


09810 


OEFB 


5BH ; 


TRL 8 


B3D7 5D 


09820 


DEFB 


5DH i CTRL 9 


BBD8 00 


09830 


DEFB 


iCTRL : 


BBD9 00 


09640 


OEFB 


i iCTRL ; 


BBDA 7B 


09850 


DEFB 


7BH iCTRL < 


B80B 5F 


09860 


DEFB 


5FH ; CTRL = 


BBDC 7D 


09870 


OEFB 


70H iCTRL ) 



15 



BBOD 5C 


09880 


OEFB 


5CH 


CTRL ? 


BC41 85B0 


10480 


DEFU 


DIRBUF 




BBDE B7 


09890 CHRTAB 


OEFB 


183 


LEFT S8 BRACKET 


BC43 1ABC 


10490 


DEFU 


0PB1 




BBDF 89 


09900 


DEFB 


89H 


BACKSLASH 


BC45 2D8E 


10700 


DEFU 


DCS3 




BBE0 BB 


09910 


DEFB 


187 


RIGHT SQ BRACKET 


BC47 7BBE 


10710 


DEFU 


AVA3 




BBE1 58 


09920 


DEFB 


5BH 


CARET 




10720 i 


VARIABLE STORAGE AREA 






09930 i 


SECTOR TRANSLATION TABLE 




BC49 8000 


10730 OMAADR 


DEFU 


80H 


DMA ADDRESS 


B8E2 0001 


09940 SECTN1 


DEFU 


0100H 




BC4B 00 


10740 DRVCOD 


DEFB 





DRIVE SELECT CODE 


BBE4 0405 


09950 


DEFU 


0504H 




BC4C 00 


10750 LSTCOD 


DEFB 





LAST DRIVE SELECT CODE 


BBE6 0809 


09940 


DEFU 


0908H 




BC4D 00FC 


10740 CURPOS 


DEFU 


0FC00H 


CURSOR POSITION 


BBE8 0C0D 


09970 


DEFU 


0D0CH 




BC4F 00 


10770 CHAR 


DEFB 





CHARACTER BUFFER 


BBEA 1011 


09980 


DEFU 


1110H 




BC70 01 


10780 SHFLOC 


DEFB 


1 


SHIFT LOCK STATUS 


BBEC 0203 


09990 


DEFU 


0302H ' 




BC71 00 


10790 URTYPE 


DEFB 





WRITE OPERATION TYPE 


BBEE 0407 


10000 


DEFU 


0704H 




BC72 00 


10800 ERMASK 


DEFB 





ERROR MASK 


BBF0 0A08 


10010 


DEFU 


0B0AH 




BC73 14 


10810 CPMSPT 


DEFB 


20 


CP/M SECTORS PER TRACK 


BBF2 0E0F 


10020 


DEFU 


0F0EH 




BC74 00 


10820 DSKCOM 


DEFB 





DISK COMMAND 


BBF4 1213 


10030 


DEFU 


1312H 




BC75 00 


10830 TRYCNT 


DEFB 





RETRY COUNT 


BBF4 0001 


10040 SECTN2 


DEFU 


0100H 




BC74 00 


10840 ERCODE 


DEFB 





DISK ERROR CODE 


BBF8 0405 


10050 


DEFU 


0504H 




BC77 0000 


10850 DENPT 


DEFU 





DENSITY POINTER 


BBFA 0809 


10040 


DEFU 


0908H 




BC79 0*00 


10840 CURDCB 


DEFU 





CURRENT DCS AODRESS 


BBFC 0C0O 


10070 


DEFU 


0D0CH 




BC7B 00 


10870 CKSUM 


DEFB 





CHECKSUM 


BBFE 1011 


10080 


DEFU 


1110H 




BC7C 00 


10880 LOGSEC 


DEFB 





LOGICAL SECTOR NUMBER 


BC00 1415 


10090 


DEFU 


1514H 




BC7D 00 


10890 LSTSEC 


DEFB 





LAST SECTOR 


BC02 1819 


10100 


DEFU 


1918H 




BC7E00 


10900 KEYACT 


DEFB 





KEY ACTIVE RAG 


BC04 1C1D 


10110 


DEFU 


1D1CH 




BC7F00 


10910 LSTKEY 


DEFB 





LAST KEY PRESSED 


BC06 2021 


10120 


DEFU 


2120H 




BC80 00 


10920 RPTLAG 


DEFB 





KEY REPEAT LAG 


BC08 0203 


10130 


DEFU 


0302H 




BC81 03 


10930 RPTRAT 


DEFB 


3 


KEY REPEAT RATE 


BC0A 0407 


10140 


DEFU 


0704H 






10940 i 


DISK DRIVE OENSITV TABLE 




BC0C 0A0B 


10150 


DEFU 


080AH 




BC82 00 


10950 OENTAB 


DEFB 





DRIVE A 


BC0E 0E0F 


10140 


DEFU 


0F0EH 




BCB3 00 


10940 


DEFB 





DRIVE B 


BC10 1213 


10170 


DEFU 


1312H 




BC84 00 


10970 


OEFB 





DRIVE C 


BC12 1417 


10180 


DEFU 


1714H 






10980 i 


BUFFERS AND SCRATCH AREAS 


BC14 1A1B 


10190 


DEFU 


1B1AH 




0100 


10990 HSTBUF 


DEFS 


256 


SECTOR BUFFER 


BC14 1E1F 


10200 


DEFU 


1F1EH 




0080 


11000 DIRBUF 


DEFS 


128 


DIRECTORY BUFFER 


BC18 2223 


10210 


DEFU 


2322H 




0008 


11010 KEYBUF 


DEFS 


8 


KEYBOARD BUFFER 




10220 I 


SINGLE DENSITY (OSBORNE) DISK PARAMETER BLOCK 


0010 


11020 DCS1 


DEFS 


16 


DIR CHECK SCRATCH 


BC1A 1400 


10230 DPB1 


DEFU 


0014H 


SECTORS/TRACK 


0010 


11030 DCS2 


DEFS 


16 




BC1C 04 


10240 


OEFB 


04H 


BLOCK SHIFT 


0010 


11040 DCS3 


DEFS 


16 




BCIO 0F 


10250 


DEFB 


0FH 


BLOCK HASK 


001F 


11050 AVA1 


DEFS 


31 


; ALLOC VECTORS AREA 


BC1E 01 


10240 


DEFB 


01H 


EXTENT MASK 


001F 


11040 AVA2 


DEFS 


31 




BC1F 2C00 


10270 


DEFU 


002CH 


DISK SIZE (2K LUMPS! 


001F 


11070 AVA3 


DEFS 


31 






10280 






24H=35T, 2CH=40T 




11080 ; 


CONSOLE MESSAGE STORAGE AREA 


BC21 3F00 


10290 


OEFU 


003FH 


MAX DIR ENTRIES 


BE9A0C 


11090 MESS1 


DEFB 


0CH 




BC23 80 


10300 


DEFB 


80H 


ALLOCATION 


BE98 43 


11100 


DEFM 


'CP/M VERS 2.2A 48K' 


8C24 00 


10310 


DEFB 


00H 


ALLOCATION 1 


50 2F 4D 20 54 45 52 53 20 32 2E 32 41 20 34 38 




BC25 1000 


10320 


DEFU 


0010H 


CHECKSIZE 


4B 










BC27 0300 


10330 


DEFU 


0003H 


TRACK OFFSET 


BEAD 0D0A 


11110 


DEFU 


0A0DH 






10340 ; 


DOUBLE DENSITY DISK PARA! 


ITER BLOCK 


BEAF 43 


11120 


DEFM 


'COPYRIGHT (0, 


1981' 


BC29 2400 


10350 DPB2 


DEFU 


0024H 


SECTORS/TRACK 


4F 50 59 52 49 47 48 54 20 28 43 29 2C 20 31 39 




BC2B 04 


10340 


DEFB 


04H 


BLOCK SHIFT 


38 31 










BC2C 0F 


10370 


DEFB 


0FH 


BLOCK MASK 


BEC2 0D0A 


11130 


DEFU 


0A0DH 




BC2D 01 


10380 


DEFB 


01H 


EXTENT HASK 


BEC4 44 


11140 


DEFM 


'DIGITAL RESEARCH' 


BC2E 5100 


10390 


DEFU 


0051H 


DISK SIZE (2K LUMPS) 


49 47 49 54 41 4C 20 52 45 53 45 41 52 43 48 






10400 






44H=35T, 51H=40T 


BED4 0A0A 


11150 


DEFU 


0A0AH 




BC30 3F00 


10410 


DEFU 


003FH 


HAX DIR ENTRIES 


BED4 0D0A 


11160 


DEFU 


0A0OH 




8C32 80 


10420 


DEFB 


80H 


ALLOCATION 


BEDB 00 


11170 


DEFB 







BC33 00 


10430 


DEFB 


00H 


ALLOCATION 1 


BED9 1C1F 


11180 MESS2 


DEFU 


1F1CH 




BC34 1000 


10440 


DEFU 


0010H 


CHECKSIZE 


BEDB 54 


11190 


DEFM 


'TRS-80 CP/M BIOS 48K VER 3,3' 


BC34 0300 


10450 


DEFU 


0003H 


TRACK OFFSET 


52 53 20 38 30 20 43 50 2F 40 20 42 49 4F 53 20 




BC38 00 


10440 CKEND 


NOP 




CHECKSUM FINISHES HERE 


34 38 4B 20 54 45 52 20 33 2E 33 






10470 i 


DISK CONTROL BLOCKS 




BEF7 0D 


11200 


DEFB 


0DH 




BC39 E2B8 


10460 DCB1 


DEFU 


5ECTN1 


SEC TABLE POINTER 


BEF8 43 


11210 


DEFM 


'COPYRIGHT (0 BRUCE ORR 1983' 


BC38 0000 


10490 


DEFU 





ZEROS 


4F 50 59 52 49 47 48 54 20 28 43 29 20 42 52 55 




BC3D 0080 


10500 


DEFU 







43 45 20 4F 52 52 20 31 39 38 33 




BC3F 0000 


10510 


DEFU 







BF14 0D0D 


11220 


DEFU 


0D0DH 




BC41 8580 


10520 


DEFU 


DIRBUF 


DIRECTORY BUFF ADD 


BF14 0D0D 


11230 


DEFU 


0D0DH 




BC43 1ABC 


10530 


DEFU 


DPB1 


DISK PARAM BLOCK ADD 


BF18 49 


11240 


DEFM 


'INSERT CP/M SYSTEM DISK IN DRIVE 0' 


BC45 0DBE 


10540 


DEFU 


DCS1 


DIR CHECK SCATCH 1 


4E 53 45 52 54 20 43 50 2F 4D 20 53 59 53 54 45 




BC47 30BE 


10550 


DEFU 


AVA1 


ALLOC VECT AREA 1 


40 20 44 49 53 4B 20 49 4E 20 44 52 49 56 45 20 




BC49 E2BB 


10540 DCB2 


DEFU 


SECTN1 


SEC TABLE POINTER 


30 










BC4B0000 


10570 


DEFU 





ZEROS 


BF3A 0D 


11250 


DEFB 


0DH 




BC4D0000 


10580 


DEFU 







BF3B 54 


11240 


DEFM 


'THEN SUITCH MAPPING TO CP/M MODE.' 


BC4F 0000 


10590 


DEFU 







48 45 4E 20 53 57 49 54 43 48 20 40 41 50 50 49 




BC51 85B0 


10400 


OEFU 


DIRBUF 


DIRECTORY BUFF ADD 


4E 47 20 54 4F 20 43 50 2F 4D 20 40 4F 44 45 2E 




BC53 1ABC 


10410 


DEFU 


DPB1 


DISK PARAM BLOCK ADD 












BC55 1DBE 


10420 


DEFU 


DCS2 


DIR CHECK SCRATCH 2 


BF5C 00 


11270 


DEFB 







BC57 5CBE 


10430 


DEFU 


AVA2 


ALLOC VECT AREA 2 


BF5D 0D0A 


11280 MESS3 


DEFU 


0A0DH 




BC59E2BB 


10440 DCB3 


DEFU 


SECTN1 




BF5F 44 


11290 


DEFM 


'DISK OFFLINE' 




BC5B0000 


10450 


DEFU 







49 53 4B 20 4F 46 44 4C 49 4E 45 




BC5O0000 


10440 


DEFU 







BF6B00 


11300 


DEFB 







BCSF 0000 


10470 


DEFU 







BF6C 0D0A 


11310 MESS4 


DEFU 


0A0DH 





16 



BF4E 44 U320 DEFH 'DATA TERMINAL MODE - PRESS CTRL-E TO EXIT' 

41 54 41 20 54 45 52 40 49 4E 41 4C 20 40 4F 44 

45 20 20 20 50 52 45 53 53 20 43 54 52 4C 20 45 

20 54 4F 20 45 58 49 54 
8F97 0D0A 11330 OEFW 0A0DH 
BF99 00 11340 DEFB 
BF9A 0D0A 11350 KESS5 DEFU 0A0DH 
BF9C 42 11340 OEFM 'BIOS CORRUPTED - RESTART SYSTEM' 

49 4F 53 20 43 4F 52 52 55 50 54 45 44 20 20 20 

52 45 53 54 41 52 54 20 53 59 53 54 45 40 
8FB3 0D0A 11370 DEFU 0A0DH 
BFBO 00 11380 DEFB 
B53A 11390 END START iEND OF BIOS 

' TOTAL ERRORS 



ALLOC 


B703 


AVA1 


BE3D 


AVA2 


BE5C 


AVA3 


BE7B 


BACKSP 


BA8C 


BOOS 


A704 


BELL 


BA97 


BELLI 


BA9A 


BELL2 


BA9C 


BELL3 


BAA4 


BL1N1T 


B6B9 


BLKSIZ 


0600 


BOOT 


B548 


CARRET 


BA70 


CDISK 


0004 


CHAR 


BC4F 


CHECK 


B401 


CHECKL 


B413 


CHKUNA 


B792 


CHRTAB 


BBDE 


CKEND 


BC38 


CKSUM 


BC7B 


CLEAR 


BA5A 


C0N1DL 


B452 


CONIN 


B455 


CONOUT 


B491 


CONRDY 


B44F 


CONST 


3434 


CONT 


BA40 


CONTAB 


BBCE 


CONTRL 


BB47 


CPMB 


9F00 


CPMSP8 


0010 


CPHSPT 


BC73 


CURDCB 


3C79 


CUROEL 


BA73 


CURPOS 


BC4D 


CURSET 


BA14 


DATREG 


F7EF 


DCB1 


3C39 


DCB2 


BC49 


DCB3 


BC59 


DCS1 


3E0D 


DCS2 


3E10 


0CS3 


BE20 


DCSREG 


F7EC 


DELAY 


39D3 


OENPT 


3C77 


OENTAB 


BC82 


0IR8UF 


B0B5 


OISKRW 


BB32 


DISP 


B9F7 


DMAAOR 


BC49 


DOS 


4020 


DOUBLE 


B940 


DP31 


BC1A 


DPB2 


BC29 


DRVCOD 


3C4B 


ORVREG 


F7E0 


OSKCOM 


3C74 


DSKRDY 


3994 


DSP 


0033 


OSPCHR 


3A14 


ERCODE 


BC74 


ERFLAG 


0040 


ERMASK 


BC72 


EXCONT 


BB67 


FILHST 


3823 


FOUND 


3329 


GOCPM 


B5C2 


HOME 


370! 


H0ME1 


B707 


HOMEW 


370F 


HSTACT 


0047 


HST3LK 


0002 


H5TBUF 


BCB5 


HSTDSK 


0043 


HSISEC 


0045 


HSTSIZ 


0100 


HSTTRK 


0044 


HSTURT 


0048 


iOBYTE 


0003 


K3D 


002B 


KDEL 


3380 


KDELAY 


3B7F 


KEY 


3AC4 


KEY! 


3AEF 


KEYACT 


BC7E 


KEYSUF 


BE05 


KEYF 


3470 


KEYTAB 


BB3E 


KLOOP 


3B83 


LAST! 


8B77 


LASTRU 


BB71 


L1NEFD 


BA82 


LIST 


B4A5 


LISTST 


39E1 


LOAD! 


858D 


LOGSEC 


3C7C 


LOOP 


B9D4 


L5TC0D 


3C4C 


LS T KEY 


3C7F 


LSTSEC 


3C70 


MAPTST 


B547 


MATCH 


BB47 


MESS1 


BE9A 


MESS2 


BE09 


MESS3 


3F5D 


MESS4 


3F4C 


MESS5 


SF9A 


MOTON 


39B4 


NOISKS 


0003 


NOCHNG 


B304 


NOMTCH 


33IC 


NON! 


335F 


NONLET 


B34C 


NOOUF 


37CB 


NSECTS 


002C 


NU 


3539 


NXTCOL 


B320 


NXTROW 


BAF7 


ORIGIN 


B500 


PRESS 


330E 


PRINT 


B4SB 


FRTCHR 


34CC 


PRTLIN 


B4CA 


PRTREG 


F7E3 


PRTSCR 


B4C7 


PUNCH 


36DD 


RDHST 


8892 


REAO 


3741 


REAOER 


B4E0 


READOP 


004F 


READY 


B9C8 


REPEAT 


3ADD 


RETRY 


B8CA 


RPTLAG 


BCB0 


RPTRAT 


SCSI 


RS2321 


B4ED 


RS2320 


B4E3 


RSBAUO 


02E9 


RSCTRL 


00EB 


RSOATA 


00E3 


RSFLAG 


004E 


RSINIT 


B4F4 


RSSTAT 


02EA 


RWCOMP 


3930 


RWERR 


B95E 


RWMOVE 


384F 


RUOPER 


B70C 


SCROLL 


BA21 


SDELAY 


39DE 


SO ISP 


3AB9 


SDSP . 


3AB0 


SECMSK 


0001 


SECREG 


F7EE 


SECTN1 


BBEZ 


SECTN2 


BBFt 


SECTRN 


B9EC 


SEEK 


8735 


SEEKU 


B749 


SEKDSK 


0040 


SEKHST 


0044 


SEKSEC 


0042 


SEKTRK 


0041 


SEL1 


3998 


SEL2 


B99E 


SELDSK 


3717 


SEIOEN 


B944 


SETDMA 


375C 


SETSEC 


3757 


SETTRK 


B730 


SHFLOC 


3C70 


SINGLE 


3958 


START 


B53A 


term; 


3BA1 


TERMIN 


B39B 


TERMO 


BBAF 


TRKREG 


F7E0 


TRNFER 


890B 


TRYCNT 


BC75 


UNACNT 


0049 


UNADSK 


004A 


UNASEC 


004C 


UNATRK 


0048 


VERCHK 


3425 


UA! T i 


3BFA 


WAIT2 


3905 


UAIT3 


B90E 


UA1TK 


B444 


UBOOT 


B573 


UBOOTE 


B503 


URALL 


0000 


URDIR 


0001 


WRITE 


B74E 


URTHST 


BBA2 


URTYPE 


BC71 


WRUAL 


0002 











00110 

00120 
00130 
00140 
00150 



00170 



B000 


00200 


8000 F3 


00210 


8001 3E20 


00220 


8003 32003C 


00230 


8004 3208FC 


00240 


8009 10FE 


00250 


8003 3E54 


00240 


8000 32023C 


00270 


8010 3E43 


00280 


8012 3208FC 


00270 


B015 10FE 


00300 


8017 18E7 


00310 


8000 


00320 



* * » CPHIEST1/ASM * * * 

PROGRAM TO TEST CP/M MEMORY CONVERSION. 

WHILE THIS PROGRAM IS RUNNING, REPEATEDLY OPERATE 
THE TRS/CPM SWITCH. WHILE IN TRS MODE 'T' UILL 
FLASH ON THE SCREEN. WHILE IN CP/M MODE 'C WILL FLASH 
ON THE SCREEN. THE PROGRAM SHOULD NOT CRASH DUE TO 
THE SUITCH OPERATION, 



START 



ORG 


8000H 




D! 






LD 


A,' ' 


; TURN T I 'T' OFF 


LD 


(3C00H)>A 


; CLEAR POS (0,0) 


LD 


(0FC08H1.A 


; I POS (8,0) OF SCREEN. 


DJNZ 


5 


i SHORT DELAY 


LD 


A,'T' 


; FLASH 'T' AT POS (0,0) 


LD 


!3C00H),A 


; OF TRS-B0 SCREEN. 


LD 


A,'C 


i FLASH 'C AT POS (0,8) 


LD 


(0FC08H),A 


; OF CP/M SCREEN. 


DJNZ 


S 


i DELAY AGAIN, 


JR 


START 


; ENDLESS LOOP, 


END 


START 





mm TOTAL ERRORS 



START 8000 



00110 
00120 
00130 
00140 
00150 



00170 



00230 



00250 CHKSUM 
00240 



00310 LO0P1 

00320 

00330 



00350 100= 



00370 



00210 
C000 

C000 C30080 
8000 
8000 F3 
B001 2100FC 
8004 1101FC 
B007 01FF03 
B00A 3420 
800C EDB0 
800E 210000 
8011 110040 

8014 AF 

8015 47 
8014 84 
8017 300! 
8019 04 
S0!A 23 
8013 1C 
30! C 20F8 
801E 14 
801F 20F5 
8021 4F 
B022 40 

8023 1100FC 

8024 0404 

8028 AF 

8029 29 
802A 8F 
6028 29 
B02C BF 
802D 29 
B02E BF 
B02F 29 

8030 8F 
6031 27 
8032 FE0A 
6034 DECT 
8034 12 
8037 13 
803B 10EE 
603A 1BD2 
8000 00430 
00000 TOTAL ERRORS 



* * * CPMTEST2/ASM » » * 

PROGRAM TO TEST FOR DYNAMIC RAM LOSS, DURING 
OPERATION OF THE RESET SWITCH 

5TART PROGRAM, THEN SET SWITCH TO CP/M MODE 
OPERATE RESET SUITCH, A CHECKSUM OF ALL DYNAMIC 
RAM WILL BE DISPLAYED. REPEAT SEVERAL TIMES 
HOLDING SWITCH IN FOR VARIOUS LENGTHS OF TIME 
IF CHECKSUM CHANGES, RESET PULSE IS TOO LONG, 
AND REFRESH IS STOPPED FOR TOO LONG. 



00400 
004!0 
02420 
00430 



00450 



00470 V 



00510 



00530 
00540 
00550 
00540 
00570 
005B0 



00410 



ORG 

JP 

ORG 

01 

LD 

LO 

LD 

LD 

LOIR 

; n 

LD 

XOR 

LD 

ADD 

JR 

INC 

INC 

INC 

INC 

JR 

LD 

LD 

LD 

LD 

XOR 

ADD 

ADC 

ADD 

ADC 

ADD 

AOC 

ADD 

ADC 

DAA 

CP 

SBC 

LO 

INC 

DJNZ 

JR 

END 



0C000H 
CHKSUM 



HL.0FC00H 
DE.0FC01H 
BC1023 
(HL)i' ' 

HL,0 

DE 

a 

3, A 

A,(HL) 

HCSKIP 

R 

HL 



ADDR 0000H IN CP/M 



CLEAR SCREEN 



GE T 14 BIT CKSUM 



LOO 



NZ, 

D 

NZiLOOP 

L,A 

H,8 

OE.0FC00H 

3,4 

A 

HL.HL 

A, A 

HL.HL 

A, A 

HL.HL 

A, A 

HL.HL 

A, A 

10 

A,-'0'-l 

(DE),A 

DE 

V 

L00P1 

CHKSUM 



DISPLAY CKSUM 



CHKSUM 8000 LOOP B014 L00P1 800E SKIP 801A V 



6026 




ZAP TO NEWDOS/80 (MODEL HI VERSION) WITH VIDE04 
Provided by Bob Seaborn 

The following patch to the LIB coaaand peralta the aaxiaua 
nuaber of DOS coaaands to be displayed on each screen line 
under both noraal conditions (64 character display, 8 coaaands on 
each video display line) and when VTDE04 is in use (80 character 
display, 10 coamands displayed per line): 

SYS1/SYS,3,E1 change 0E 08 06 to 0E 2F 06 
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TRSDOS 6.2 — PATCH/CMD 
by Dave Bower [CompuServe 70635,330] 



PATCH/CMD is a convenient way to sake minor changes to a 
disk file. It changes a byte, or bytes, from the original values 
to new values you specify. It can verify that you are changing 
the proper bytes, if you like. 

A patch can be installed two ways, typed in from DOS Ready 
or by a patch file. Each of these can be in two forms, the 
"■eaory load" method, or the "direct modify" method. Each of 
these two methods can be expressed in two variations, HEX and 
ASCII. And patches can be removed with two different parameters, 
YANK and REMOVE. 

This may sound a little confusing, but PATCH/CMD is a 
versatile, easy to use, convenient and very handy little program, 
for the beginning and seasoned hacker alike. 

But it can be a little intimidating at first, and the 
documentation leaves a little bit to be desire. Maybe I can shed 
a little bit of light on the subject. We'll take it two steps at a 
time. 

First I want to talk about the two different patch methods, 
the "memory load" and the "direct modify" method. The difference 
between the two is WHEN and WHERE they actually patch your file. 
The "direct modify" method changes your file, on the disk, at the 
time you apply the patch. When you use this method PATCH 
changes the bytes to your new values. If you would then 
disassemble FROM DISK you would see the changed code. This 
method can also be used on ANY disk file, not just /CMD files. 

The "memory load" does not patch your file until you load it 
into memory. PATCH adds the patch code TO THE END of your file 
with a loader that changes your program IN MEMORY every time 
the program is loaded. If you were to disassemble from DISK you 
would see the old code, but if you disassembled from MEMORY you 
would see the new code. This type of patch can only be applied 
to files that can be run directly from DOS (i.e. /CMD files). 

The "memory load" patch does not give you the option of 
specifying a FIND byte to verify that you are in the right area, 
the "direct modify" patch does. 

MEMORY LOAD PATCH 

Let's look at how the two different methods are applied 
from DOS. A "memory load" command looks like this: 

PATCH FORMAT/CMD.UTILITY (X'3A06'=54 72 73 64 6F 73 36 32) 
Or, the same patch might look like this: 

PATCH FORMAT/CMD.UTILITY (X'3A06'="Trsdos62") 

The part of the command we are talking about is in 
parentheses. When used directly from DOS it must be. There are 
two parts. The X'nnnn' is a four digit HEX address which tells 
PATCH/CMD that this is a "memory load" patch, and where to put 
it. The information after the equals sign is the data to be 
loaded at the specified memory address. It can be in the form of 
HEX bytes, nn nn nn, or it can be an ASCII string enclosed in 
quotes. 

One interesting note about the "memory load" format. With 
this method you can patch areas past the end of your program. 
If you specify a load address (X'nnnn') one byte greater than the 
address of the last byte in your program, patch will add the code 
to the end of your program. If you can't find room within your 
program you could do a CALL to a patch tacked to the end. (My 
compliments to Northern Bytes for this one). 

The two examples are legitimate patches and either one will 
change the default disk name in TRSDOS 6.2, FORMAT/CMD, version 
6.2.0 to Trsdos62. (Although it will display upper case unless 
you've applied the lower case patch to FORMAT/CMD which I'll give 
later.) 

To recap, this is a "memory load" patch. It adds the patch 
info to the end of your program and loads the patch every time 
the program is loaded into memory. The program you are patching 
must be a DOS executable file. 

Be careful when applying this patch. It will patch the 
address you specify, no matter what is there. Make sure you're 
not patching a later or different version of a program with 
different addresses! 

DIRECT MODIFY PATCH 
A "direct modify" patch looks like this: 
PATCH FORMAT (D11,EA=20 20 20 20:F11,EA=44 49 53 4B) 



PATCH FORMAT (D11,EA= 



":F11,EA="DISK") 



Each of these commands does exactly the same thing. If 
applied to FORMAT/CMD, TRSDOS 6.2 each will change the letters 
DISK in the default disk name (DATADISK) to four spaces 
(DATA ). Patch will first verify that the old bytes are what 
you expected before applying the patch. 

There are six parts to this type of patch. 

Dxx, Record * within file to directly modify 

xx Relative byte in the record to start 

=DATA: NEW data in HEX or ASCII form 

Fxx, Record # within file to verify (same as Dxx) 

xx Relative byte to start (same as Dxx.xx) 

=DATA Old data, if not found PATCH aborts 

When used directly from DOS more than one command can be 
on the line, but each should be separated by a colon. For 
example, 

PATCH FILESPEC (D00,1F=00:F00,1F=1A:D0A,1C=1A:F0A,1C=BB) 
modifies two different records, 0A and 00. 

To recap the "direct modify" patch, it changes the specified 
byte or bytes within the file ON DISK. A disassembly from disk 
would show the new code. This method allows the user to specify 
what the original data should be before applying the patch. And, 
you can patch any disk file with this method. 

PATCH FILES 

A better method than applying each individual patch from 
DOS would be to put your commands in a patch file and have 
PATCH/CMD install, YANK or REMOVE them. 

A JCL file is recommended for applying patches, especially 
with long or numerous patches. You can double check your work 
and it can be reused. 

A patch file is an ASCII list of patch commands. For 
example, a "direct modify" patch file called F0RMAT1/FIX might 
look like this. 

This patch for FORMAT/CMD.UTILITY ver. 6.2.0 

TRSDOS 6.2 

9/3/85 by Dave Bower 

It allows the use of lower case in a diskette name 
when formatting. 

Apply using the command 

==> PATCH FORMAT.UTILITY F0RMAT1 

D09,E1=00 00 
F09,E1=EE 20 
D0D,B4=7B 
F0D,B4=5B 



Notes: 

1) Documented; PATCH/CMD ignores lines starting with a period. 
(Special characters in a comment line, including semicolons , 
can cause a patch file to fail!) 

2) Includes example of command to invoke the patch, lest I should 
forget. 

3) The /CMD is assumed in Filespec 1 

4) The /FIX is assumed in Filespec 2 

5) Each command should be on a separate line 

I apply this patch by issuing the following command from 
DOS Ready: 

PATCH FORMAT/CMD.UnLITY F0RMAT1/FIX 
By the way, this is a legitimate patch should you want to use 
lower case letters in your disk names. 

Here's an example, using the "memory load" method that I 
call FMTNAME/FIX. 

Patch to FORMAT/CMD ver 6.2.0, TRSDOS 6.2 to change 
the default name to Trsdos62. 

Apply using the command 

==> PATCH FORMAT/CMD-UTILITY F0RMAT1/FIX 

X'3A06'="Trsdos62 . 
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I would apply this patch using the command, 

PATCH FORMAT/CMD.UTIUTY FMTNAME/FIX 

REMOVING PATCHES FROM FILES 

What If you want to remove a patch from a file? Use the 
YANK or REMOVE parameter after the Identical command you used 
to install the patch. If you created a patch file it's a piece of 
cake. 

If you used the "memory load" method (X'nnnn'=nn nn nn) then 
you use the YANK parameter. 

PATCH FORMAT/CMD.UTTLITY FMTNAME/FIX (YANK) 

If you used the "direct modify" method (D0A,E1=00) then you 
use the REMOVE parameter. 

PATCH FORMAT/CMD.UTILITY F0RMAT1/FIX (REMOVE) 

Filespec 2 in each case was the same file you used when 
you installed the patch. 

Using patch files to install patches of either method is 
much quicker than applying each individual patch via DOS, and 
safer! And they can be removed with one simple command. 

Here is ray patch file to modify FORMAT/CMD (version 6.2.0) 
from TRSDOS 6.2. Two things to notice. When mixing methods 
("memory load" and "direct modify") you should put the "direct 
modify" commands first. And you must YANK and REMOVE the file 
to remove both kinds of patches, even though PATCH/CMD claims 
that all patches are removed each time. REMOVE only removes 
"direct modify" patches and YANK only yanks "memory load" 
patches. You would need to issue the patch command twice. 
PATCH FORMAT/CMD.UTILITY DEFAULTS/FIX (YANK) 
PATCH FORMAT/CMD-UTILITY DEFAULTS/FIX (REMOVE) 

These are working patches and you can use as many or as 
few as you like to customize your FORMAT/CMD. 

Patches to FORMAT/CMD.UTILITY (TRSDOS 6.2) 

Apply ===> PATCH FORMAT.UTILrrY DEFAULTS/FIX 

Verify that we've got right version 



D0E,96="Forraat 
F0E,96="FORMAT 



6.2.0" 

6.2.0" 



Change default name to Trsdos62 



Dll,E6="Trsdos62" 
F11,E6="DATADISK" 



Allows lower case for disk name. 



D09,E1=00 00 
F09,E1=EE 20 
D0D,B4=7B 
F0D,B4=5B 



No NAME prompt (use parameter or default) 



D09,EF=00 E6 00 00 
F09,EF=EF CD 65 2A 



No PASSWORD prompt (use parameter or default) 



D0A,38=00 00 00 
F0A,38=CD 95 35 



No DENSITY prompt (use parameter or default) 



D0A,99=E6 00 00 
F0A,99=CD 5D 2A 



No CYLINDERS prompt (use parameter or default) 



D0B.0F-00 00 00 
F0B,0F=CD 5D 2A 



No SIDES prompt (use parameter or default) 



D0A,E4=E6 00 00 
F0A,E4=CD 5D 2A 



Defaults to SIDES=2 



D0A,E8=12 
F0A,E8=16 

Does not check for data when ABS specified, 
from Northern Bytes 

X'3492'=CD 16 3A 

X'3A16'=3A 27 35 B7 C0 CD 27 2A C9 



9/5/85 



That about wraps it up, except for the Lxx parameter. That 
deals with patching library commands and I am going to ignore it. 
You'll see that in patches supplied by Radio Shack and they will 
tell you where to stick it. 

One last little point. You can determine addresses for your 
own patches by disassembling a file. You can determine load 
blocks and relative bytes by using the LIST command from DOS 
Ready with the HEX parameter. The LSI file editor, FED II, is an 
excellent tool for discerning addresses, blocks, bytes and such 
for patches. 
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Proposal for cost savings by information utilities 4/13 
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4/19 

2/9 
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Information on this organization 
DECKER, JACK CLUBS AND NEWSLETTERS 

Clubs and user groups then on our mailing list 
DECKER, JACK CUT THOSE HIGH TELEPHONE BILLS 
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Little-known info on international packet networks 3/17 



TUSCON PC USERS GRP FREE DATA BASE DIRECTORY 
Available from GTE Telenet 



1/17 



HARDWARE 

BALAS, RICH EPROM PROGRAMMER 
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Customize the video character set on your Model I 5/16 

BRYCE, GARY AUDIO AMPLIFIER IN YOUR VIDEO 

Add high-quality sound to your video display unit 2/14 

DECKER, JACK AN ELECTRONICS INVASION FROM 'DOWNUNDA' 

Dick Smith Electronics now in the U.S.A. 6/22 

DECKER, JACK LETTER TO THE EDITOR (REPLY) 

Hints to help make a CPU speedup mod work in a Model I 5/2 
DECKER, JACK MODEL I LEVEL II LOWERCASE ON POWERUP 

Replace Model I ROM with EPROM with lowercase driver 8/15 
THE EXTERMINATOR */* 

LETTER TO THE EDITOR */* 

DECKER, JACK WARNING ON ADDING 64K MEMORY IC'S TO THE 

MODEL 4/4P 
Use the ones with proper the refresh method 5/10 

KELLER, S./TINNEY, C. REAL TIME CLOCK/CALENDAR 

Give your TRS-80 its' own clock, with battery backup 5/9 

KENNEDY. DAVE A REAL TIME CLOCK 

Improved design with battery backup and software 8/11 

KENNEDY, DAVE EXTRA RAM FOR THE MODEL I 

Used with Errol Rosser's upgrade, enables 3000H area 5/6 

KENNEDY, DAVE RANDOM I/O 

This circuit doesn't work properly; don't use it! 1/7 

THE EXTERMINATOR 3/2 

USING 256 CYCLE REFRESH RAMS 

(This is the corrected version or" this circuit) 7/12 
MacAULAY, EEON P BUFF KIT REVIEW 

Details of Don McKenzie's print buffer kit 8/20 

MORE ON THE PBUFF PRINTER BUFFER KIT */* 

MATUG NEWSLETTER EPROM PROGRAMMER KIT 

Info on a kit from a Wisconsin firm 7/3 

McKENZIE, DON * ATTENTION HARDWARE HACKERS 

A 1200 baud MODEM kit, & Don's PBUFF print buffer kit 4/12 
P BUFF KIT REVIEW 8/20 

MORE ON THE PBUFF PRINTER BUFFER KIT */* 

OMER, GUY * ANCHOR SIGNALMAN MARK XII DTR FIX 

Add the DTR signal required by most BBS software 2/22 

ORANGE BYTES N/L TANDON DRIVE DOOR HINGE REPLACEMENTS 

A source for a better hinge at a lower price 6/22 

OWEN, DAVE FAST FIX FOR MODEL 4 SLOWS 

How to fix hardware bug that slows pre-1984 Model 4's 6/15 
PETERS, DAVE FOUR DRIVES FOR THE MODEL 4P 

Conversion instructions to permit use of four drives 7/7 

PHILLIPP, JOHN FIX YOUR BLOOMING SCREEN 

Replace unstable Mod 4/4P trim pot R-15 with resistors 8/17 
ROSSER, ERROL * EXPANSION UNIT FOR PMC-80/SYSTEM-80/VTOE0 

GENIE USERS 
Has single density disk controller, printer interface 1/9 

ROSSER, ERROL UPGRADING THE TRS-80 MODEL I TO 64K OF 

DRAMs 
Internal modification puts 64K inside keyboard unit 5/8/18 
RANDOM I/O 

Circuit by another author; doesn't work properly!! 1/7 
THE EXTERMINATOR 3/2 

LETTER TO THE EDITOR 5/2 

EXTRA RAM FOR THE MODEL I 5/6 

USING 256 CYCLE REFRESH RAMS 7/12 

ROSSER, ERROL USING 256 CYCLE REFRESH RAMS 

Circuit to generate 256 cycle RAM refresh on Model I 7/12 
SANTANA, MIKE INSTRUCTIONS FOR THE INSTALLATION OF 

ADDITIONAL 64K IN THE NEW TRS-80 MODEL 4A 
For new Model 4's with single P.C. Board 3/10 

SIMON, MIKE L. * EL CHEAPO EPROM ERASER 

Information extracted from early article by Mr, Simon 7/3 



DECKER, JACK 



REVIEWS 

THE COMPLETE HANDBOOK OF PERSONAL 
COMPUTER COMMUNICATIONS 
Review of Alfred Glossbrenner's newly revised edition 8/10 
DECKER, JACK THE EXPLOITED MEDIA, AND HOW NOT TO BE 

ONE OF THEM 
Review of "THE UNABASHED SELF-PROMOTER'S GUIDE" 4/10 

SALSBURY, NATE LETTER TO THE EDITOR 

Mini-review of Soltoff's "Programmer's Guide to TRSDOS 6" 2/4 






SOFTWARE 

BESLER, DARREN R. DATECOMP/ASM 

An asseably language date compression routine 6/14 

BROTHERTON, MICHAEL WHERE 

Shows exact location of error within BASIC line 5/7/6 

THE EXTERMINATOR 3/2 

CALMETTES, SERGE Y. SCRPRT FAST SCREEN PRINT PROGRAM 

Use with Models III/4 and certain Radio Shack printers 4/15 
DADASHZADEH/BYRNE SAVESUB: THE BASIC VERSION NUMBERING 
UTILITY 
Never accidentally overwrite the wrong program again 8/9 
DECKER, JACK MODEL 4 SETDATE UPGRADE 

Upgrades Model 4 SETDATE from version 6.0 to 6.1 8/6 

DECKER, JACK SETDATE 

The easy way to enter the date at system startup 5/2/7 

THE EXTERMINATOR 5/4/1 

THE EXTERMINATOR 5/5/2 

LETTER TO THE EDITOR 5/6/4 

LETTER TO THE EDITOR 5/7/2 

THE EXTERMINATOR !/ 2 

LETTER TO THE EDITOR 2/4 

MORE CHANGES TO SETDATE 3/10 

(See also next entry In this index) 
DECKER, JACK SETDATE - THE MODEL 4 VERSION 

Version 6.0 of the popular date-setting utility 6/18 

MODEL 4 SETDATE UPGRADE 8/6 

DOMIGAN, TONY FIXGAT/ASM FOR MODEL III NEWDOS/80 

VERSION 2 
Corrects Granule Allocation Table of NEWDOS/80 disks 3/14 
DOMIGAN, TONY FIXHIT/ASM 

Repairs damaged NEWDOS/80 (Model 3) Hash Code Tables 2/19 
DOMIGAN, TONY ROM/ASM 

Restores old ROM image if it's been changed on Model 4P 5/4 
FORD, CARL JR. SCREEN BLANKING ROUTINE FOR USE WITH 

NETOOS/80 
Blanks the video display after a few ainutes of non-use 1/14 
GROMMES / SOLTOFF FKEY/CMD 

Model 4 utility lets you redefine function keys at will 2/10 
HOLDEN, PHIL GHOST MENU 

Prograa-selection menu executes from video aeaory 5/15 

KEIJZER, RICHARD A. MAAK EENS EEN D00LH0F (MAKE A MAZE) 

Programs that produce oazes on your printer 5/19 

KELTERBAUM, JOACHIM A NEW OVERLAY MODULE FOR NEWDOS/80 
VERSION 2 
JKL with TRS-80 graphics for Epson RX80/FX80 5/4/6 

RANDOM I/O !/ 10 

KOEHLER, BOB FINANCIAL PLANNER 

Determine incoae potential of an investment 5/13 

LIVINGSTONE, JOHN T.* EASTER 

Find date of Easter in given year 8/8 

MUMAUGH, JIM BASIC WORD SEARCH PROGRAM 

An excellent program to create word search puzzles 4/17 
SALSBURY, NATE TRS-80 GRAPHICS ON THE FX-80 PRINTER 

Prograa to download TRS-80 block graphics to FX-80 l/ll 
SMALL, GREG TRACE/CMD 

Machine language debugging aid, use with NEWDOS/80 2/18 
SPENCER, GIL INPUT® DISK BASIC ENHANCEMENT 

Add hew statements to NEWDOS/80 Disk BASIC 3/19 

VAN DAM, JOOP PROMPT 

Change the BASIC "READY" prompt to whatever you wish 1/18 
ZAJAC, RON KEYBOARD PROCESS ROUTINE FOR USE FROM 

BASIC with SAMPLE PROGRAM 
Machine language routine & a 2-player entrapment game 7/9 

TIPS A1STO TECHNIQUES 
ABRAHAMSON, ALAN ASK ALAN 

Convert text to random access files; "help" file demo 1/16 
ALLEN, BILL SQUEEZING AN EXTRA GRAN INTO A DATA DISK 

INTO AN EMERGENCY 

You can KILL BOOT/SYS from a DATA disk if necessary 7/21 
BAKER, BILL GOOD NEWS DEPARTMENT 

News of new Cancel Call Waiting telephone feature 5/8 

TELECOMMUNICATIONS NEWS 8/18 

BRYCE, GARY CREATE A SELF-BOOTING DISK USING LDOS 

Gary says it's auch easier using LDOS than NEWDOS/80 4/22 
DECKER, JACK ALLWRITE! BUG(?) 

Don't omit carriage returns after control word lines! 3/16 
DECKER, JACK ALLWRITE HINTS 

Make Allwrlte's text editor a little easier to use 5/22 



DECKER, JACK FASTER STRING SORTS/SWAPS IN MODEL I/m 

BASIC 
Avoid "garbage collection" when swapping BASIC strings 7/14 
DECKER, JACK MICROSOFT BASIC AND FLOATING-POINT 

NUMBERS 
Why nuaber-crunching may yield unexpected results 6/17 

LETTER TO THE EDITOR 8 /4 

DECKER, JACK MODEL I/m SELECTIVE RESTORE 

Method to RESTORE to other than first DATA statement 6/22 
DOMIGAN, TONY LETTER TO THE EDITOR 

NEWDOS/80 routines convert bytes to ASCII equivalents 2/2 
DOMIGAN, TONY MODEL HI NETOOS/80 ROUTINES 

A few useful NEWDOS/80 version 2 subroutines 4/10 

EVANS, ROWAN MODEL 4 SYSTEM STATUS FLAGS 

What the flags control; accessing then from BASIC 6/7 

FREIFELD, MICHAEL R. MODEL I/HI TO MODEL 4 SUPERSCRIPSIT 
PRINTER DRIVERS 
Convert Model I/m SuperScripsit drivers to Model 4 5/21 
GAZDAR, JEHANGIR * BASIC PROGRAM FUNCTIONS YOU CAN USE 

Define BASIC functions to ease string handling 1/13 

GROMMES, BOB LETTER TO THE EDITOR 

How to get a version of TRSDOS 6 for the Models n/12 2/4 
GROMMES, BOB SET/RESET AND DIRECT VIDEO CONTROL FOR 

MODEL 4 BASIC 
Regain control lost when you "moved up" to Mod 4 BASIC 3/5 
GROMMES, BOB * USE OF THE SPOOLER ON TRSDOS 6.2.0 

Problems In using the spooler and how to fix them 3/4 

HAGERS, A. J. WHERE AM I? 

Simulate relative CALLS using ROM code at 0O0BH-OOOCH 4/3 
HESTER, VERN MULTIDOS MODEL 4 BASIC ENTRY POINTS 

List of equivalents to Model I/HJ ROM entry points 5/22 

JAEGER, PAUL LETTER TO THE EDITOR 

Floating point errors in Microsoft Fortran, Alcor Pascal 8/4 
KELTERBAUM, JOACHIM CREATE A SELF-BOOTING DISKETTE USING 
NETOOS/80 
Make your own self -booting disks 5/4/11 

THE EXTERMINATOR 5/6/2 

MODEL m SELF-BOOTING DISK USING NETOOS/80 1/3 

THE EXTERMINATOR 3 / 2 

LEWIS, DARREL DOUBLE PRECISION IN 5 BYTES 

Store money amounts to $49 million in 5 bytes on disk 7/6 
LSI CUSTOMER SERVICE LDOS, TRSDOS 6 AND 1987 - THE WHOLE STORY 
Why your disk file dates will be messed up in 1988 6/16 

MARTEN, FRANK A DOUBLE SIDED BOOTING DISK UNDER LDOS 



6/12 



3/22 



2/22 



1/9 



Create a double sided LDOS systea disk 
ORR, MIKE INTERFACING BASIC AND TRSDOS 6 SVC 

ROUTINES 
How to call TRSDOS 6 SVC routines from within BASIC 
PMLLIPP, JOHN T. INSTALL TURBO PASCAL ON THE TRS-80 

MODEL 4 
Under Montezuma Micro CP/M 2.2 version 1.4 
PRICE, TOM MEMDISK AND MODEL 4 SUPERSCRIPSIT 

How to run Model 4 Superscripsit from the MEMDISK 
ROHDE, ARNE LETTER TO THE EDITOR 

How to implement a wildcard search in a monitor program 3/3 
SANDS, WARWICK EXTRA INSTRUCTIONS FOR EDAS 3.5 

Undocumented EDAS commands used with "alien" files 5/4 

SANDS, WARWICK INTERRUPTS IN THE TRS-80 

Beware if enabling interrupts in Level II environment 1/17 
SEABORN, BOB * HINTS ON READING TRS-80 COLOR COMPUTER 

DISKETTES UNDER NETOOS/80 
How to read or copy a CoCo disk on the Model I/m/4 
SHIELDS, LAURIE ACCESSING THE VIDEO ON THE MODEL 3 

Tricky techniques for video display manipulation 
SHIELDS, LAURIE * NETOOS/80 TIPS FROM LAURIE SHIELDS 

Problem with CMD"S=..." and JCL file A/5 format info 
SMALL, GREG LETTER TO THE EDITOR (REPLY) 

SuperScripsit EOF error fix, and NETOOS/80 tables 
SMALL, GREG * NEWDOS/80 BUG 

RENAME bug If new filename starts with characters "TO" 
LETTER TO THE EDITOR (HUMOROUS) 
SMALL, GREG (INTERNATIONAL) NETOOS/80 USERS' GROUP 

(SERIES) 
Commented disassembly of BOOT/SYS 2/15 

ZAP creation, BASIC zap permits more than 15 open files 3/11 
A cornucopia of useful zaps to NEWDOS/80 5/7 

STEVENSON, ROD CONFIGURATION IN LDOS 

Tips on installing configurations s/22 

TATSIG NEWSLETTER * WARNING TO 2400 BAUD MODEM BUYERS 

The Hayes Saartaodem 2400 is not "Hayes Compatible"?! 6/16 
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THAYER, RICH * TRS-80 AMATEUR RADIO NETS 

"Han" nets devoted to the TRS-80 on Sunday afternoons 1/13 
TRIMBLE, FLOYD C. LETTER TO THE EDITOR 

Tip regarding use of NEWDOS/80 TI flag with LNW doubler 6/4 
TRS-80 SYSTEM 80 C/G CONVERTING A CALL TO JR 

Make Model I/HI code with JPs, CALLs fully relocatable 7/19 
VARIOUS SOURCES MORE ON AUTO-BOOTING A MODEL 4P 

Including how to make a double-sided auto-booting disk 3/13 
WEST, ALF NEWDOS ZAP NUMBER 89 

You're asking for trouble if you apply it - here's why 7/22 
WEST, ALF USE OF CMD"J" - NEWDOS/80 VERSION 2 

Why and how to use CMD"J", includes demo program 7/17 

ZAPS FOR CHD"J" 7/18 

YATES, LEONARD MODEL HI SELF-BOOTING DISK USING 

NEWDOS/80 
Joachim Kelterbaum's techniques applied to Model III 1/3 

THE EXTERMINATOR 3/2 

ZAJAC, RON STANDARD SORT ROUTINES 

Heapsort and Shell Sort routines, with deao programs 5/5 
THE EXTERMINATOR 8/2 

LETTER TO THE EDITOR 8/2 

ZAPS AMD PATCHES 
BIRKS, REG MORE PATCHES TO TRSDOS 

Zaps let characters other than "/" delimit date entry 8/17 
BOWER, DAVE DOSPLUS MODELA/ITI LOAD PATCH 

Make DOSPLUS 3.5 self-bootijig on the Model 4P 1/4 

MORE ON AUTO-BOOTING A MODEL 4P 3/13 

BRATE, DON * TRSDOS 1.3 PATCH PROGRAM 

Installs your choice of zaps to TRSDOS 1.3 5/6/19 

THE EXTERMINATOR 5/8/1 

THE EXTERMINATOR 2/2 

BROTHERS, HARDIN * A TIP FOR MODEL 4 & 4P HACKERS 

Patch TRSDOS 6.2 to enable the "KILL" command 1/4 

BRUMLEY, BOB ZAPS FOR USERS OF VD3E04 WITH NEWDOS/80 

Zaps to DISASSEM, EDTASM, and the directory display 3/18 
CARLYLE, CRAIG LETTER TO THE EDITOR 

Patch to Model I version of M-ZAL release 3 1/2 

CHRISTCHURCH-80. ZAP TO MODEL I VERSION OF ALAN 

JOHNSTONE'S NEWDOS/80 MODS 
Permits zero bytes to be sent to the printer 8/22 

CDJTUG NEWSLETTER OPTIONAL NEWDOS/80 VERSION 2.0 ZAPS 

Zaps for PDRIVE, Series I EDTASM, and FORTRAN pkg 5/6/15 
THE EXTERMINATOR 1/2 

DECKER, JACK MORE CHANGES TO SETDATE 

For non-U.S. readers. Used with changes in Vol. 6, #2 3/10 
DECKER, JACK OBERON READER PATCH FOR MODEM-80 

Required patch to use the Oberon Reader with MODEM-80 5/20 
DECKER, JACK PATCHES TO CHANGE CERTAIN CHARACTERISTICS 

OF TASMON 
Three patches that are very handy if you need then 2/17 
DECKER, JACK ZAP FOR ALLWRITE! TEXT EDITOR 

To keep it from dropping spaces from your text 7/16 

THE EXTERMINATOR •/* 

DELAHAYE, H. TIP FOR VIDEO-GENIE [ALSO PMC-80, 

SYSTEM-80] 
Zap Tandy EDTASM program for proper printer operation 1/13 
Also accidentally printed again (we goofed!) 4/16 

DOMIGAN, TONY LETTER TO THE EDITOR 

Zaps to NEWDOS/80 for use with VIDE04 2/2 

DOMIGAN, TONY LETTER TO THE EDITOR 

Zap to NEWDOS/80 to Bake CLEAR command honor IflMEM 5/1 

MODEL I NEWDOS/80 "CLEAR" COMMAND ZAPS 6/8 

DOMIGAN, TONY MAKING AN AUTO-BOOT-LOADING NEWDOS/80 

V2.0 SYSTEM DISK FOR THE MODEL 4P 

So you don't have to load MODELA/III file separately 5/7/14 

LETTER TO THE EDITOR 2/2 

LETTER TO THE EDITOR 2/3 

MORE ON AUTO-BOOTING A MODEL 4P 3/13 

SELF BOOTING NEWDOS/80 SYSTEM DISK AGAIN 5/10 

THE TRUTH ABOUT RELATIVE TRACKS 5/11 

SELF BOOTING NEWDOS/80 SYSTEM DISK FINAL 6/16 

DOMIGAN, TONY NEWDOS/80 VERSION 2 ZAPS 

Various zaps for Models I/HI/4 5/4/18 

NEWDOS/80 TIME/DATE PATCH 4/1 

DOMIGAN, TONY PATCH FOR TMDD/CMD 

Fixes a minor bug in The Memory Disk Driver prograa 2/5 
DOMIGAN, TONY SZAP80/CMD 

Patch to SUPERZAP for use with VTDE04, similar program 4/19 
EREAUT, PHIL PRINTOUT FROM EDITOR/ASSEMBLER-PLUS 

Zap eliminates title, page * for continuous printing 5/22 



FRANSEN, PAUL NEWDOS/80 TIME/DATE PATCH 

Change the MM/DD/YY storage format to DD/MM/YY 4/1 

FRANSEN, PAUL * ZAPS 

Zaps to various programs from the country of Holland 4/14 
LETTER TO THE EDITOR 6/5 

GD3LEN. B. MODIFICATION TO CHAINBLD/BAS 

Get hardcopy printouts of your NEWDOS/80 chain files 7/22 

HALLGREN, JOHN TRS-80 TIDBITS, TRASH, TREASURE, AND TRIVIA 

Zaps for TRSDOS v. 1.3, 2.7DD, 2.8, & NEWDOS/80 v.1.0 5/4/3 

THE EXTERMINATOR 1/2 

LETTER TO THE EDITOR 3/3 

HUFFMAN, WILLIAM C. LETTER TO THE EDITOR 

Zap unprotects BASIC programs saved with the ",P" option 4/3 
KELTERBAUM, JOACHIM SOUP UP GOOD OL' SCRIPSIT 

Add calculator features to Scripsit's text editor 4/4 

KNAGGS, P. LETTER TO THE EDITOR 

SuperScripsit zaps remove test for two adjacent spaces 5/3 
LEVINSON, ANDY ANOTHER TRSDOS 1.3 PATCH 

Prevents long AUTO commands from crashing the system 6/22 
LEWIS, L. & EVANS, R. MODEL 4 LDOS/TRSDOS 6.2 DATE PATCH 

Changes format of dates from MM/DD/YY to DD/MM/YY 7/19 

MATUG NEWSLETTER MORE MODEL 4 PATCHES 

Patches to TRSDOS 6.2 and the M-ZAL assembler 8/22 

O'HARE, KEVIN ZAPS FOR CMD"J" 

Patches to NEWDOS/80 BASIC to let CMD"J" use DD/MM/YY 7/18 
PHILLIPP, JOHN T. THE TRUTH ABOUT RELATIVE TRACKS 

More on self-booting NEWDOS/80 disks on the Model 4P 5/11 
RASMUSSEN, ART SELF BOOTING NEWDOS/80 system disk for the 

MODEL 4P AGAIN 

See next entry in this index for the final version 5/10 

RASMUSSEN, ART SELF BOOTING NEWDOS/80 system disk for the 

MODEL 4P FINAL 

A better way to create a self -booting NEWDOS/80 disk 6/16 
See listing under DOMIGAN, TONY for related articles. 
ROHDE, ARNE CONVERTING C0PYCAT3 INTO /CMD FORMAT 

Also explains the C0PYCAT3 protection scheme 7/13 

ROSSER, ERROL RANDOM I/O 

Mods to Kelterbaum's JKL program; LDOS/NEWDOS patches 1/10 
SALSBURY, NATE A PATCH OF A PATCH 

Convert cassette EDTASM+ to run on Mod m disk 5/4/9 

LETTER TO THE EDITOR 5/6/4 

A PATCH OF A PATCH OF A PATCH 3/18 

SALSBURY, NATE LETTER TO THE EDITOR 

Better regulation of stepping rate in Model 4 TASMON 4/3 
SEABORN, BOB ADAPT MODEL HI INFOCOM GAMES TO RUN ON 

THE MODEL I 
A simple zap makes it possible 8/22 

SEABORN, BOB MODEL I NEWDOS/80 "CLEAR" COMMAND ZAPS 

Make CLEAR respect HD4EM. Model III zaps also 6/8 

SMALL, GREG (INTERNATIONAL) NEWDOS/80 USERS' GROUP 

(SERIES) 
Commented disassembly of BOOT/SYS 2/15 

ZAP creation, BASIC zap permits more than 15 open files 3/11 
A cornucopia of useful zaps to NEWDOS/80 5/7 

SMITH, HERBERT L. LETTER TO THE EDITOR 

Patches to Radio Shack CP/M 3.0+ to correct date bugs 6/5 
SMITH, HERBERT L. SUPER UTILITY+ 3.2 AND THE MODEL 4 

Patches you may need to run SU+ on a Model 4 5/14 

SOKOLOWSKI, KAZ LETTER TO THE EDITOR 

Patch changes track step rate of TRSDOS 6 boot sector 3/4 
SPENCER, GIL * CHANGE SUPERSCRIPSIT'S CURSOR CHARACTER 

Also where to find patch to eliminate delta symbol 1/7 

SPENCER, GIL REWRITE OF NEWDOS/80 DISK BASIC AMPERSAND 

(S) ROUTINE 
Change the default from octal to hexadecimal 6/5 

(This article appeared with an incorrect listing in 4/22) 
LETTER TO THE EDITOR 6/5 

SWEETMAN/SKARSHOLT MAKE TRSDOS 1.3 YOUR OYSTER 

Creates directory entries for TRSDOS 1.3 system files 6/15 
THOMPSON, BRENDON ELECTRIC PENCIL ZAPS 

One mandatory from IJG, and one for NEWDOS/80 users 6/6 
VARIOUS SOURCES PATCHES FOR MODEL 4 USERS 

Zaps to DOS and various programs for Model 4 users 6/13 
VARIOUS SOURCES PATCHES FOR TRSDOS 6.2 

Five sets of useful zaps for TRSDOS 6.2 users 5/13 

WEST, ALF NEWDOS ZAP NUMBER 89 

You're asking for trouble if you apply it - here's why 7/22 
WHITE, LAWRENCE C. A PATCH OF A PATCH OF A PATCH 

Changes to Nate Salsbury's zaps to Editor/Asseabler+ 3/18 
WHTTTAKER, JIM MODEL III TRSDOS 1.3 - THE BEST DOS! 

A collection of TRSDOS 1.3 patches and enhancements 8/5 
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Subscription Information 

Norlfiern Bytes is edited by Jack Decker and published on 
an irregular basis by The Alternate Source Information 
Outlet. Back issues are available starting with Uolume S. 
Number 1 . Issues prior to that are not available. Some of 
the most valuable articles from earlier issues may be 
reprinted in future Issues of Northern Bytes. Currently 
there are eight back issues available for Uolume S. as well 
as all issues from Uolume 6. All back issues are $2 each. 

It is very easy to be Placed on the Northern Bytes 
REGULAR list. Simply Place your address. Uisa or 
MasterCard number and expiration date on file with us. 
We will start with the issue you request. We do not bill you 
for AN V ISSUE until that issue has been mailed. This way. 
we can continue to offer you top quality information with 
absolutely no risk to you. There's no question of what to 



do about unfulfilled issues if we decide to quit publishing. 
Unless otherwise requested, we presume your 
subscription will extend through the month of your 
expiration date. 

Don't have a charse card, huh? We understand the myriad 
of reasons for not having them and we feel that a "To-Be- 
Invoiced" policy could help increase the demand for 
Northern Bytes. If you'll do it for us. we'll do it for you. 
Would you like to be Placed on a regular list TO BE 
BILLED for each issue? Vou could then send a check for 
the issues as they are mailed. If you didn't send a cheek, 
we would presume that your Interest has died and 
discontinue your subscription. The only requirement far 
getting onto the list is to pay for the first Issue up front: 
the next will be mailed automatically, if you request. Vou 
are insured that you will receive top of the line TRS-BO 
information as it is released. Ask to be Placed on the m 
RISK "To-Be-lnvoiced Northern Bytes List'. 



Call or write, but SIGH UP TODAY! 

The Alternate Soorce Infos-nation Outlet 

70*1 North Pennsylvania flyenue 

Lansing. Michigan 10908-5319 

Telephone C5173 4BB-8B70, or use our toll-free lines for ORDERS OHLY: 

(BOO) 63B-7B1B ext. 700 in Michigan, CB00) E53-3B00 ext. 700 Blssuhere in U.S.A. 

EMAIL; CoiipuSarro: 7B1B7.1B1 / Delphi-. TAS10 / MCI Mails 109-7407 / TbImb B5010S7407 MCI 
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POSTMASTER: Address Correction Requested. 
Send address changes. USPS Form 3579. and undellverable 
copies to: The Alternate Source Information Outlet, 
70* North Pennsylvania Avenue, lanslng, Michigan 48906-5319 
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ELECTRONIC MAIL ADDRESSES: 
CompuServe EasyPlex: 72167,161 

Delphi Mail: TASIO 

MCI Mail: 109-7407 

Telex: 6501097407 

Answerback: 6501097407 MCI 
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